Condition Coverage

blib/lib/Ace/Object.pm
Criterion Covered Total %
condition 39 111 35.1


and 3 conditions

line !l l&&!r l&&r condition
38 13 0 9 $func_name =~ /^[A-Z]/ && $self->isObject
40 13 0 0 $func_name =~ /^[A-Z]/ and $self->isTag
41 0 0 9 $self->db and $self->model
0 9 0 $self->db and $self->model and not $self->model->valid_tag($func_name)
55 5 4 0 not $no_dereference and not $self->isRoot
9 0 0 not $no_dereference and not $self->isRoot and $self->db
70 3 0 0 defined $_[0] and $_[0] =~ /\d+/
74 2 0 1 $obj->isObject and not $obj->isRoot
119 179 20 217 defined $isRoot and $isRoot
175 0 0 0 $a->name eq $b->name and $a->class eq $b->class
0 0 0 $a->name eq $b->name and $a->class eq $b->class and $a->db eq $b->db
214 0 12 0 not defined $pos and $tag =~ /(.*?)\[(\d+)\]$/
367 0 0 0 defined $t->right and $t->right->isObject
399 51 17 30 @_ and $self->isRoot
458 2 0 0 $self->isTag && defined $self->right
506 0 0 22 $self->db and $self->isObject
543 0 0 4 $self->db and $self->isObject
587 17 0 0 $ts and $timestamp
665 0 4 2876 defined $class and defined $name
1880 0 0 0 $self->db and not $$self{'.comment'}
1906 0 0 0 defined $result and $result =~ /write access/im
1936 0 0 0 ref $_ && ref $_ eq 'ARRAY'
1951 0 0 0 ref $_ and $_->isa('Ace::Object')
2029 0 0 0 ref $_ && ref $_ eq 'ARRAY'
2041 0 0 0 @values and defined $$subtree{'.right'}
0 1 0 @values and defined $$subtree{'.right'} and "$$subtree{'.right'}" eq $oldvalue
2082 3 2 22 exists $$self{'.update'} and $$self{'.update'}
2099 8 0 5 defined $result and $result =~ /write( or admin)? access/im
9 0 0 defined $result and $result =~ /sorry|parse error/im
2181 0 0 0 $self->down and not defined $self->right

or 3 conditions

line l !l&&r !l&&!r condition
228 1 1 0 $above || $left
367 0 0 0 $t->isObject or defined $t->right and $t->right->isObject
406 96 4 6 exists $$self{'.right'} || exists $$self{'.raw'}
418 0 0 0 $name =~ /[^\w.-]/ || $self->isClass
631 14 6 23 $start_row || $col
1771 0 0 0 shift @_ || $DEFAULT_WIDTH
1779 0 0 0 not defined $max[$i] or $max[$i] < length $fields[$i]