Condition Coverage

blib/lib/Perl6/Form.pm
Criterion Covered Total %
condition 1 45 2.2


and 2 conditions

line l !l condition
251 0 0 push @bad, "Unknown option: $opt=>'$new->{$opt}" and next

and 3 conditions

line !l l&&!r l&&r condition
7 0 0 0 not ref $_ and /^[:\$&%\@]?(\w+)$/
0 0 0 not ref $_ and /^[:\$&%\@]?(\w+)$/ and exists $EXPORT{$1} || exists $EXPORT_TAGS{$1}
65 0 0 0 int $_[0] eq $_[0] and $_[0] > 0
85 0 0 0 not $type and $vals eq 'minimal'
94 0 0 0 ref $vals eq 'HASH' and not grep({int $vals->{$_} ne $vals->{$_};} 'min', 'max')
254 0 0 0 @bad and $croak
305 0 0 0 $rem > 0 and $str =~ s/( +)/($rem-- > 0 ? ' ' : '') . $1;/eg

or 2 conditions

line l !l condition
7 0 2 $EXPORT_TAGS{'MANDATORY'} ||= []
52 0 0 $std_one{$_} || '{[{1}[}'
89 0 0 $vals->{'min'} ||= 0
195 0 0 $opts->{'field'}{'from'} ||= []
196 0 0 $opts->{'field'}{'to'} ||= []

or 3 conditions

line l !l&&r !l&&!r condition
7 0 0 0 exists $EXPORT{$1} || exists $EXPORT_TAGS{$1}
19 0 0 0 not defined $_[0] or length $_[0] == 0
34 0 0 0 ref $newval || "'${newval}'"
185 0 0 0 $type || "'${spec}'"