Condition Coverage

blib/lib/Games/Object.pm
Criterion Covered Total %
condition 137 198 69.1


and 3 conditions

line !l l&&!r l&&r condition
121 1 0 1 @_ == 2 && _IsObject($_[1])
0 0 1 @_ == 3 && _IsObject($_[1]) && _IsObject($_[2])
137 1 0 1 @_ == 2 && _IsObject($_[1])
0 0 1 @_ == 3 && _IsObject($_[1]) && _IsObject($_[2])
207 3 10 8 defined $verb and not defined &$verb
435 11 0 8 @_ == 1 and ref $_[0]
436 19 0 0 @_ == 1 and not ref $_[0]
447 1 18 0 defined $args{'file'} and defined $args{'filename'}
564 10 0 8 @_ == 1 and ref $_[0]
565 18 0 0 @_ == 1 and not ref $_[0]
575 0 18 0 defined $args{'file'} and defined $args{'filename'}
758 1 10 12 defined $flag and $$flag{'value'}
835 0 0 1 not $args{'no_action'} and $old ne $new
0 0 1 not $args{'no_action'} and $old ne $new and $key eq 'value'
852 53 50 5 defined $$attr{'minimum'} && $new <= $$attr{'minimum'}
854 53 46 9 defined $$attr{'maximum'} && $new >= $$attr{'maximum'}
895 37 3 65 $$attr{'type'} eq 'int' and not $$attr{'track_fractional'}
900 0 5 100 not $args{'no_action'} and $old != $new
5 3 97 not $args{'no_action'} and $old != $new and $key eq 'value'
914 0 101 3 not $args{'no_action'} and $too_small
101 0 3 not $args{'no_action'} and $too_small and $old != $new
101 0 3 not $args{'no_action'} and $too_small and $old != $new and $key eq 'value'
928 0 97 7 not $args{'no_action'} and $too_big
97 3 4 not $args{'no_action'} and $too_big and $old != $new
100 0 4 not $args{'no_action'} and $too_big and $old != $new and $key eq 'value'
997 750 0 419 $man && $man->has_relation('inherit')
1009 344 72 444 not $attr and $aobj
1014 330 14 3 $inherited and $$attr{'flags'} & 8
1051 39 0 5 $man && $man->has_relation('inherit')
1063 4 1 8 not $flag and $fobj
1068 2 2 0 $inherited and $$flag{'flags'} & 8
1162 0 2 0 defined $$attr{'value'} and _IsObject($$attr{'value'})
1185 87 14 39 $Games::Object::AccessorMethod and not $$attr{'flags'} & 16
1193 131 9 0 defined $$attr{'tend_to_rate'} and not defined $$attr{'real_value'}
1197 103 2 35 $$attr{'type'} eq 'int' and not $$attr{'track_fractional'}
1203 98 41 1 $$attr{'flags'} & 2 and $$attr{'flags'} & 4
1208 0 0 0 $type eq 'any' && ref $$attr{$key} eq 'ARRAY'
0 0 0 $type eq 'any' && ref $$attr{$key} eq 'HASH'
1287 627 74 5 $$attr{'type'} eq 'int' and $$attr{'track_fractional'}
673 0 28 $$attr{'type'} eq 'string' and defined $$attr{'map'}
673 25 3 $$attr{'type'} eq 'string' and defined $$attr{'map'} and defined $$attr{'map'}{$$attr{$prop}}
1304 671 35 0 defined $$attr{'minimum'} and $result < $$attr{'minimum'}
1306 671 35 0 defined $$attr{'maximum'} and $result > $$attr{'maximum'}
1427 79 0 0 not defined $attr and $inherited
1449 18 56 3 $$attr{'type'} eq 'int' && $$attr{'track_fractional'}
1486 74 1 2 $pcount > 0 and $acount == 0
1490 64 11 0 defined $args{'value'} || defined $args{'real_value'} and defined $args{'modify'} || defined $args{'modify_real'}
1494 70 5 0 defined $args{'real_value'} || defined $args{'modify_real'} and not defined $$attr{'real_value'}
1668 0 1 1 @cargs and not ref $cargs[0]
1 0 1 @cargs and not ref $cargs[0] and $cargs[0] eq 'FAIL'
1712 88 65 206 $arg =~ /^A:([a-zA-Z0-9_]+)$/ && defined $$aargs{$1}
1731 29 0 0 $subarg =~ /^A:([a-zA-Z0-9_]+)$/ && defined $$aargs{$1}
1829 0 36 69 defined $attr and exists $$attr{$oname}
1839 0 6 2 defined $flag and exists $$flag{$oname}
1909 4 1 2 defined $$obj{'queue_changed'} and defined $$obj{'queue_changed'}{$qindex}
2002 39 3 1 defined $$mod{'time'} and $$mod{'time'} <= 0
9 9 24 $$mod{'applied'} and not $$mod{'incremental'}

or 3 conditions

line l !l&&r !l&&!r condition
370 0 63 0 ref $proto || $proto
430 0 19 0 ref $proto || $proto
856 5 9 94 $too_small || $too_big
1425 79 0 0 defined $attr or $inherited
1490 11 0 64 defined $args{'value'} || defined $args{'real_value'}
0 0 11 defined $args{'modify'} || defined $args{'modify_real'}
1494 0 5 70 defined $args{'real_value'} || defined $args{'modify_real'}
1499 11 0 64 defined $args{'value'} or defined $args{'real_value'}
1574 54 1 9 not $args{'persist_as'} or $args{'apply_now'}