Condition Coverage

blib/lib/Getopt/Long/Less.pm
Criterion Covered Total %
condition 57 85 67.0


and 3 conditions

line !l l&&!r l&&r condition
88 89 0 3 $s->{'is_neg'} && length $o0 > 1
91 73 11 11 $short_mode and length $o > 1
130 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'
149 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'
196 10 5 1 $spec->{'opttype'} and defined $val_in_opt && length $val_in_opt || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)
239 3 0 0 $spec->{'opttype'} and length $str || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)

or 2 conditions

line l !l condition
131 3 0 $$destination // 0
133 0 1 $vals->{$name} // 0

or 3 conditions

line l !l&&r !l&&!r condition
130 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'
149 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'
196 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-/)
213 22 1 0 $spec->{'type'} or not $$argv[$i + 1] =~ /\A-/
239 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-/)
258 1 0 0 $spec->{'type'} or not $$argv[$i + 1] =~ /\A-/