| line |
true |
false |
branch |
|
21
|
0 |
0 |
unless (defined $count) |
|
22
|
0 |
0 |
if (defined $main::PCR_SEED) |
|
33
|
0 |
0 |
unless $subrule =~ / :: | \. | -> /x |
|
37
|
0 |
0 |
if $positionals eq '' and @param == 1 |
|
51
|
0 |
0 |
if ($_[0] eq '\\') { } |
|
|
0 |
0 |
elsif ($_[0] eq q[']) { } |
|
64
|
0 |
0 |
unless length $_[0] |
|
82
|
0 |
0 |
unless defined $_[1] |
|
97
|
0 |
0 |
$$param{'sigspace'} ? : |
|
166
|
0 |
0 |
unless ref $n eq 'HASH' |
|
175
|
0 |
0 |
unless (defined $RegexPos) |
|
196
|
0 |
0 |
if $greedy |
|
200
|
0 |
0 |
$quantifier eq '' ? : |
|
202
|
0 |
0 |
$sigspace && $_[0]{'ws3'} ne '' ? : |
|
220
|
0 |
0 |
if $sigspace and $_[0]{'ws1'} ne '' |
|
221
|
0 |
0 |
if $sigspace and $_[0]{'ws2'} ne '' |
|
223
|
0 |
0 |
if $quantifier eq '' |
|
234
|
0 |
0 |
if (ref $quantifier eq 'HASH') |
|
237
|
0 |
0 |
if (ref $code) |
|
238
|
0 |
0 |
if (defined $Pugs::Compiler::Perl6::VERSION) |
|
246
|
0 |
0 |
if @count ne 1 or $count[0] == 0 |
|
260
|
0 |
0 |
if $quantifier eq '?' |
|
268
|
0 |
0 |
if $quantifier eq '*' |
|
274
|
0 |
0 |
if $quantifier eq '+' |
|
294
|
0 |
0 |
if $capture_count > $max |
|
296
|
0 |
0 |
if $tmp |
|
328
|
0 |
0 |
if $capture_count > $max |
|
330
|
0 |
0 |
if $tmp |
|
386
|
0 |
0 |
if (exists $_[0][$i]{'quant'} and $_[0][$i]{'quant'}{'quant'} eq '*' and $_[0][$i]{'quant'}{'greedy'} eq '?') |
|
430
|
0 |
0 |
if $tmp |
|
432
|
0 |
0 |
if $direction eq '-' |
|
461
|
0 |
0 |
if ($name =~ /^\$/) |
|
463
|
0 |
0 |
if ($name =~ /^ \$ \^ ([^\s]*) /x) |
|
481
|
0 |
0 |
if ($name =~ /^\@/) |
|
499
|
0 |
0 |
if ($name =~ /^%/) |
|
547
|
0 |
0 |
unless defined $value |
|
555
|
0 |
0 |
if $char eq 'c' |
|
557
|
0 |
0 |
if $char eq 'C' |
|
560
|
0 |
0 |
if $char eq 'x' |
|
562
|
0 |
0 |
if $char eq 'X' |
|
565
|
0 |
0 |
if $char eq 'o' |
|
567
|
0 |
0 |
if $char eq 'O' |
|
570
|
0 |
0 |
if $char eq 'n' |
|
572
|
0 |
0 |
if $char eq 'N' |
|
577
|
0 |
0 |
if $char eq 'h' |
|
579
|
0 |
0 |
if $char eq 'H' |
|
582
|
0 |
0 |
if $char eq 'v' |
|
584
|
0 |
0 |
if $char eq 'V' |
|
588
|
0 |
0 |
if $char eq $_ |
|
589
|
0 |
0 |
if $char eq uc $_ |
|
591
|
0 |
0 |
if $char eq '\\' |
|
618
|
0 |
0 |
if $modifier eq '.' |
|
624
|
0 |
0 |
if (ref $code and defined $Pugs::Compiler::Perl6::VERSION) { } |
|
651
|
0 |
0 |
if $code =~ /return/ |
|
666
|
0 |
0 |
if $modifier eq 'plain' |
|
678
|
0 |
0 |
if $modifier eq '?' |
|
689
|
0 |
0 |
if $modifier eq '!' |
|
707
|
0 |
0 |
if ref $program |
|
711
|
0 |
0 |
$capture_to_array ? : |
|
744
|
0 |
0 |
if ref $program |
|
768
|
0 |
0 |
if (ref $name eq 'HASH') |
|
775
|
0 |
0 |
if (exists $$program{'metasyntax'}) { } |
|
|
0 |
0 |
elsif (exists $$program{'capturing_group'}) { } |
|
780
|
0 |
0 |
unless $cmd =~ /^[_[:alnum:]]/ |
|
785
|
0 |
0 |
unless defined $param_list |
|
787
|
0 |
0 |
$capture_to_array ? : |
|
812
|
0 |
0 |
if ref $program |
|
815
|
0 |
0 |
$capture_to_array ? : |
|
844
|
0 |
0 |
$capture_to_array ? : |
|
864
|
0 |
0 |
if ref $program |
|
885
|
0 |
0 |
if $mod eq '!' |
|
887
|
0 |
0 |
if ref $program |
|
909
|
0 |
0 |
if $mod eq '!' |
|
912
|
0 |
0 |
if ref $program |
|
933
|
0 |
0 |
if $str eq ':' |
|
935
|
0 |
0 |
if $str eq '$' |
|
937
|
0 |
0 |
if $str eq '^' |
|
940
|
0 |
0 |
if $str eq '$$' |
|
942
|
0 |
0 |
if $str eq '^^' |
|
945
|
0 |
0 |
if $str eq '<<' |
|
947
|
0 |
0 |
if $str eq '>>' |
|
972
|
0 |
0 |
unless defined $param_list |
|
978
|
0 |
0 |
if ($name eq 'at') |
|
997
|
0 |
0 |
if $modifier eq '!' |
|
1000
|
0 |
0 |
if ($prefix eq '@') |
|
1005
|
0 |
0 |
$capture_to_array ? : |
|
1026
|
0 |
0 |
if ($prefix eq '%') |
|
1031
|
0 |
0 |
$capture_to_array ? : |
|
1047
|
0 |
0 |
if ($prefix eq '$') |
|
1048
|
0 |
0 |
if ($cmd =~ /::/) |
|
1077
|
0 |
0 |
if ($prefix eq q[']) |
|
1081
|
0 |
0 |
if ($prefix eq '"') |
|
1086
|
0 |
0 |
if ($modifier eq '.' or $modifier eq '?') |
|
1092
|
0 |
0 |
if ($cmd =~ /^{/) |
|
1112
|
0 |
0 |
if ($prefix =~ /[_[:alnum:]]/) |
|
1113
|
0 |
0 |
if ($cmd eq 'cut') |
|
1117
|
0 |
0 |
if ($cmd eq 'commit') |
|
1121
|
0 |
0 |
if ($cmd eq 'null') |
|
1128
|
0 |
0 |
if ($subrule eq 'at') |