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') |