Condition Coverage

blib/lib/Perl6/Pod/Utl.pm
Criterion Covered Total %
condition 2 5 40.0


or 2 conditions

line l !l condition
91 13 0 shift() || (return [])

or 3 conditions

line l !l&&r !l&&!r condition
104 0 0 13 $args{'reg'} || do { BEGIN { $^H{'Regexp::Grammars::active'} = '1'; $^H{'qr'} = 'CODE(0x33fced8)'; } my($CAPTURE, $CONTEXT, $DEBUG, $INDEX, $MATCH, %ARG, %MATCH); qr/0(??{ quotemeta $delim{$ARG{'ldelim'}}; })0(?{ exists $allow{'*'} or exists $allow{$ARG{'name'}} if $ARG{'name'} and $ARG{'name'} eq uc $ARG{'name'}; })0(?{ $MATCH{'entry'} = $MATCH{'text'}; $MATCH{'form'} = 1; })0(?{ $MATCH{'form'} = 2; })0${DEFER_REGEX_COMPILATION}0/msx }