Condition Coverage

blib/lib/Getopt/Long/Less.pm
Criterion Covered Total %
condition 55 81 67.9


and 3 conditions

line !l l&&!r l&&r condition
90 89 0 3 $s->{'is_neg'} && length $o0 > 1
93 73 11 11 $short_mode and length $o > 1
132 14 1 3 $parsed->{'is_inc'} and $ref eq "SCALAR"
14 0 1 $parsed->{'is_inc'} and $vals
14 0 0 $parsed->{'type'} and $parsed->{'type'} eq "i"
9 3 2 $parsed->{'opttype'} and $parsed->{'opttype'} eq "i"
12 0 0 $parsed->{'type'} and $parsed->{'type'} eq "f"
9 2 1 $parsed->{'opttype'} and $parsed->{'opttype'} eq "f"
11 0 0 $parsed->{'type'} and $parsed->{'type'} eq "s"
9 0 2 $parsed->{'opttype'} and $parsed->{'opttype'} eq "s"
151 19 22 5 $parsed->{'type'} and $parsed->{'type'} eq "i"
35 3 3 $parsed->{'opttype'} and $parsed->{'opttype'} eq "i"
16 12 10 $parsed->{'type'} and $parsed->{'type'} eq "f"
25 2 1 $parsed->{'opttype'} and $parsed->{'opttype'} eq "f"
198 10 5 1 $spec->{'opttype'} and defined $val_in_opt && length $val_in_opt || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)
241 3 0 0 $spec->{'opttype'} and length $str || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)

or 3 conditions

line l !l&&r !l&&!r condition
132 0 0 14 $parsed->{'type'} and $parsed->{'type'} eq "i" or $parsed->{'opttype'} and $parsed->{'opttype'} eq "i"
0 0 12 $parsed->{'type'} and $parsed->{'type'} eq "f" or $parsed->{'opttype'} and $parsed->{'opttype'} eq "f"
0 0 11 $parsed->{'type'} and $parsed->{'type'} eq "s" or $parsed->{'opttype'} and $parsed->{'opttype'} eq "s"
151 5 3 38 $parsed->{'type'} and $parsed->{'type'} eq "i" or $parsed->{'opttype'} and $parsed->{'opttype'} eq "i"
10 0 28 $parsed->{'type'} and $parsed->{'type'} eq "f" or $parsed->{'opttype'} and $parsed->{'opttype'} eq "f"
198 0 1 5 defined $val_in_opt && length $val_in_opt || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)
25 1 15 $spec->{'type'} or $spec->{'opttype'} and defined $val_in_opt && length $val_in_opt || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)
215 22 1 0 $spec->{'type'} or not $$argv[$i + 1] =~ /\A-/
241 0 0 0 length $str || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)
4 0 3 $spec->{'type'} or $spec->{'opttype'} and length $str || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)
260 1 0 0 $spec->{'type'} or not $$argv[$i + 1] =~ /\A-/