blib/lib/Hub/Perl/Language.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 12 | 84 | 14.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
207 | 0 | 0 | 0 | ref $_[$i] and $$opts{'ref'} |
351 | 0 | 186 | 0 | defined $argv and not isa($argv, 'ARRAY') |
352 | 0 | 33 | 153 | defined $argv and @$argv |
368 | 0 | 0 | 86 | defined $$argv[$idx + 1] and not $$argv[$idx + 1] =~ /^($$opts{'append'}|$$opts{'prefix'})(?!\d)/ |
692 | 0 | 0 | 1 | $$opts{'by'} eq 'def' and defined $best |
695 | 0 | 0 | 30 | defined $_[$i] and defined $best |
699 | 30 | 0 | 0 | $$opts{'by'} eq 'max' and Hub::check('-test=num', $_[$i], $best) |
701 | 30 | 0 | 0 | $$opts{'by'} eq 'min' and Hub::check('-test=num', $_[$i], $best) |
704 | 0 | 0 | 0 | defined $best && $best |
0 | 0 | 0 | defined $_[$i] && $_[$i] | |
970 | 0 | 0 | 0 | isa($$da[$i], 'HASH') and isa($$sa[$i], 'HASH') |
0 | 0 | 0 | isa($$da[$i], 'ARRAY') and isa($$sa[$i], 'ARRAY') | |
984 | 0 | 0 | 0 | isa($$dh{$k}, 'HASH') and isa($v, 'HASH') |
0 | 0 | 0 | isa($$dh{$k}, 'ARRAY') and isa($v, 'ARRAY') | |
1299 | 0 | 0 | 0 | $im > -1 and $im < $p3 |
line | l | !l | condition |
---|---|---|---|
533 | 0 | 0 | $m ||= '' |
623 | 36 | 0 | $$opts{'back'} || 0 |
687 | 0 | 31 | $$opts{'by'} ||= 'def' |
773 | 0 | 0 | shift() || (return undef) |
1005 | 0 | 0 | shift() || (return) |
1096 | 0 | 0 | shift() || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
368 | 0 | 0 | 86 | not defined $$argv[$idx + 1] or defined $$argv[$idx + 1] and not $$argv[$idx + 1] =~ /^($$opts{'append'}|$$opts{'prefix'})(?!\d)/ |
671 | 0 | 0 | 0 | $$opts{'msg'} ||= $@ |
672 | 0 | 0 | 0 | $$opts{'msg'} ||= $! |
970 | 0 | 0 | 0 | not exists $$da[$i] or $$opts{'overwrite'} |
1014 | 0 | 0 | 0 | not $k or $v =~ /\n/ |
line | l&&r | l&&!r | !l&&r | !l&&!r | condition |
---|---|---|---|---|---|
625 | 0 | 0 | 0 | 0 | Hub::check("-test=match=$$opts{'match'}", @_) xor $invert |
630 | 0 | 36 | 0 | 0 | Hub::check('-test=blessed', $$opts{'blessed'}, @_) xor $invert |
634 | 0 | 0 | 0 | 0 | Hub::check("-ref=$$opts{'ref'}", @_) xor $invert |