| line |
true |
false |
branch |
|
34
|
0 |
0 |
unless $subrule =~ / :: | \. | -> /x |
|
44
|
0 |
0 |
if ($_[0] eq '\\') { } |
|
|
0 |
0 |
elsif ($_[0] eq q[']) { } |
|
57
|
0 |
0 |
unless length $_[0] |
|
129
|
0 |
0 |
unless ref $n eq 'HASH' |
|
150
|
0 |
0 |
if $greedy |
|
154
|
0 |
0 |
$quantifier eq '' ? : |
|
156
|
0 |
0 |
$sigspace && $_[0]{'ws3'} ne '' ? : |
|
166
|
0 |
0 |
if $sigspace and $_[0]{'ws1'} ne '' |
|
167
|
0 |
0 |
if $sigspace and $_[0]{'ws2'} ne '' |
|
169
|
0 |
0 |
if $quantifier eq '' |
|
176
|
0 |
0 |
if $quantifier eq '?' |
|
181
|
0 |
0 |
if $quantifier eq '*' |
|
184
|
0 |
0 |
if $quantifier eq '+' |
|
200
|
0 |
0 |
if $capture_count > $max |
|
202
|
0 |
0 |
if $tmp |
|
231
|
0 |
0 |
if $capture_count > $max |
|
233
|
0 |
0 |
if $tmp |
|
282
|
0 |
0 |
if $tmp |
|
284
|
0 |
0 |
if $direction eq '-' |
|
300
|
0 |
0 |
if ($name =~ /^\$/) |
|
302
|
0 |
0 |
if ($name =~ /^ \$ \^ ([^\s]*) /x) { } |
|
320
|
0 |
0 |
if $name =~ /^\@/ |
|
321
|
0 |
0 |
if ($name =~ /^%/) |
|
364
|
0 |
0 |
unless defined $value |
|
371
|
0 |
0 |
if $char eq 'n' |
|
373
|
0 |
0 |
if $char eq 'N' |
|
376
|
0 |
0 |
if $char eq $_ |
|
377
|
0 |
0 |
if $char eq uc $_ |
|
379
|
0 |
0 |
if $char eq '\\' |
|
397
|
0 |
0 |
if (ref $code) |
|
398
|
0 |
0 |
if (defined $Pugs::Compiler::Perl6::VERSION) |
|
402
|
0 |
0 |
if $perl5 =~ /return/ |
|
424
|
0 |
0 |
unless $code =~ /return/ |
|
450
|
0 |
0 |
if ref $program |
|
454
|
0 |
0 |
$capture_to_array ? : |
|
484
|
0 |
0 |
if ref $program |
|
504
|
0 |
0 |
if ref $name eq 'HASH' |
|
509
|
0 |
0 |
if (exists $$program{'metasyntax'}) { } |
|
|
0 |
0 |
elsif (exists $$program{'capturing_group'}) { } |
|
514
|
0 |
0 |
unless $cmd =~ /^[_[:alnum:]]/ |
|
519
|
0 |
0 |
unless defined $param_list |
|
521
|
0 |
0 |
$capture_to_array ? : |
|
543
|
0 |
0 |
if ref $program |
|
546
|
0 |
0 |
$capture_to_array ? : |
|
572
|
0 |
0 |
$capture_to_array ? : |
|
589
|
0 |
0 |
if ref $program |
|
605
|
0 |
0 |
if ref $program |
|
622
|
0 |
0 |
if ref $program |
|
641
|
0 |
0 |
if ref $program |
|
662
|
0 |
0 |
if $str eq ':' |
|
664
|
0 |
0 |
if $str eq '$' |
|
666
|
0 |
0 |
if $str eq '^' |
|
669
|
0 |
0 |
if $str eq '$$' |
|
671
|
0 |
0 |
if $str eq '^^' |
|
674
|
0 |
0 |
if $str eq '<<' |
|
676
|
0 |
0 |
if $str eq '>>' |
|
703
|
0 |
0 |
if ($prefix eq '@') |
|
708
|
0 |
0 |
$capture_to_array ? : |
|
726
|
0 |
0 |
if ($prefix eq '%') |
|
731
|
0 |
0 |
$capture_to_array ? : |
|
745
|
0 |
0 |
if ($prefix eq '$') |
|
746
|
0 |
0 |
if ($cmd =~ /::/) |
|
768
|
0 |
0 |
if ($prefix eq q[']) |
|
772
|
0 |
0 |
if ($prefix eq '"') |
|
777
|
0 |
0 |
if ($prefix =~ /[-+[]/) |
|
779
|
0 |
0 |
if ($prefix eq '-') { } |
|
|
0 |
0 |
elsif ($prefix eq '+') { } |
|
789
|
0 |
0 |
if ($prefix eq '.' or $prefix eq '?') |
|
795
|
0 |
0 |
if ($cmd =~ /^{/) |
|
799
|
0 |
0 |
if (exists $Pugs::Emitter::Rule::Perl6::Ratchet::char_class{$cmd}) |
|
816
|
0 |
0 |
if ($prefix =~ /[_[:alnum:]]/) |
|
817
|
0 |
0 |
if ($cmd eq 'cut') |
|
821
|
0 |
0 |
if ($cmd eq 'commit') |
|
825
|
0 |
0 |
if ($cmd eq 'null') |
|
832
|
0 |
0 |
if ($subrule eq 'at') |