Condition Coverage

blib/lib/Perl6/Rules.pm
Criterion Covered Total %
condition 0 174 0.0


and 2 conditions

line l !l condition
635 0 0 error("Empty ${esc}[...]") and last
651 0 0 error("Empty ${esc}[...]") and last
679 0 0 error("Empty ${esc}[...]") and last
695 0 0 error("Empty ${esc}[...]") and last

and 3 conditions

line !l l&&!r l&&r condition
114 0 0 0 $char ge 'a' and $char le 'z'
0 0 0 $char ge '0' and $char le '9'
490 0 0 0 $repeat and $capture
553 0 0 0 $sigil and $sigil eq '@' || $sigil eq '%'
1430 0 0 0 warn qq[Cannot interpolate raw string "$pat" as pattern\n] and exit 1
1445 0 0 0 length $mod > 5 and substr($mod, 0, 4) eq 'nth('
0 0 0 length $mod > 5 and substr($mod, 0, 4) eq 'nth(' and substr($mod, -1) eq ')'
0 0 0 length $mod > 2 and substr($mod, 0, 1) ne 'n'
0 0 0 length $mod > 2 and substr($mod, 0, 1) ne 'n' and substr($mod, -2) eq 'th' || substr($mod, -2) eq 'st' || substr($mod, -2) eq 'nd' || substr($mod, -2) eq 'rd'
0 0 0 length $mod > 3 and substr($mod, 0, 2) eq 'x('
0 0 0 length $mod > 3 and substr($mod, 0, 2) eq 'x(' and substr($mod, -1) eq ')'
0 0 0 length $mod > 1 and substr($mod, -1) eq 'x'
1765 0 0 0 exists $mod{'nth'} && ($mod{'post'}{'g'} || $mod{'post'}{'gc'})
0 0 0 exists $mod{'rep'} && $type eq 'm'
0 0 0 exists $mod{'rep'} && $type eq 's'
1779 0 0 0 exists $mod{'rep'} and $mod{'post'}{'g'} || $mod{'post'}{'gc'}
1782 0 0 0 $repcontrol and $type eq 's'
0 0 0 $repcontrol and $type eq 's' and not $mod{'post'}{'gc'}
1784 0 0 0 exists $mod{'rep'} && $type eq 'm'
1787 0 0 0 $repcontrol && $type eq 'm'
1791 0 0 0 exists $mod{'nth'} and $type ne 'm'
0 0 0 exists $mod{'nth'} and $type ne 'm' and $type ne 's'
1793 0 0 0 exists $mod{'rep'} and $type ne 'm'
0 0 0 exists $mod{'rep'} and $type ne 'm' and $type ne 's'
1836 0 0 0 $from_s >= 0 and $to >= 0
0 0 0 $from_l >= 0 and $to >= 0
1863 0 0 0 $arrayref and @$arrayref
1921 0 0 0 $overlap and $exhaust ne 'done'
0 0 0 $overlap and $exhaust ne 'done' and $Perl6::Rules::startpos <= $Perl6::Rules::lastpos
1927 0 0 0 $sigil eq '@' and $subsigil eq '?'
0 0 0 $sigil eq '%' and $subsigil eq '?'

or 2 conditions

line l !l condition
163 0 0 $quotemeta ||= ''
223 0 0 $quotemeta ||= ''
457 0 0 $negate ||= ''
542 0 0 $p5pat[-1] || ''
1430 0 0 ref $pat || ''

or 3 conditions

line l !l&&r !l&&!r condition
114 0 0 0 $char ge 'a' and $char le 'z' or $char ge '0' and $char le '9'
0 0 0 $char ge 'a' and $char le 'z' or $char ge '0' and $char le '9' or $char eq '_'
123 0 0 0 $follow2 eq '.{' or $follow2 eq '.['
174 0 0 0 ($special = index($var, '[')) > 0 or ($special = index($var, '{')) > 0
234 0 0 0 ($special = index($var, '[')) > 0 or ($special = index($var, '{')) > 0
553 0 0 0 $sigil eq '@' || $sigil eq '%'
597 0 0 0 $sigil eq '@' or $sigil eq '%'
718 0 0 0 $sigil eq '@' or $sigil eq '%'
1445 0 0 0 $mod eq 'words' or $mod eq 'w'
0 0 0 $mod eq 'globally' or $mod eq 'g'
0 0 0 $mod eq 'exhaustive' or $mod eq 'e'
0 0 0 $mod eq 'overlap' or $mod eq 'o'
0 0 0 $mod eq 'ignore' or $mod eq 'i'
0 0 0 $mod eq 'cont' or $mod eq 'c'
0 0 0 substr($mod, -2) eq 'th' || substr($mod, -2) eq 'st' || substr($mod, -2) eq 'nd' || substr($mod, -2) eq 'rd'
0 0 0 substr($mod, 0, 3) eq 'nth' or substr($mod, 0, 1) eq 'x'
1611 0 0 0 $stdprop{$name} || "\\p{$name}"
1757 0 0 0 $name ||= "anon_$type"
1779 0 0 0 $mod{'post'}{'g'} || $mod{'post'}{'gc'}
1807 0 0 0 $mod{'exhaust'} || $mod{'overlap'}
1816 0 0 0 $translate or $bad