line |
true |
false |
branch |
18
|
0 |
0 |
unless $subrule =~ / :: | \. | -> /x |
21
|
0 |
0 |
if $positionals eq '' and @param == 1 |
37
|
0 |
0 |
unless $subrule =~ / :: | \. | -> /x |
40
|
0 |
0 |
if $positionals eq '' and @param == 1 |
116
|
0 |
0 |
unless ref $n eq 'HASH' |
139
|
0 |
0 |
if ref $program |
159
|
0 |
0 |
if ref $program |
176
|
0 |
0 |
if (ref $quantifier eq 'HASH') |
196
|
0 |
0 |
unless defined $sub |
206
|
0 |
0 |
if $sub eq '' |
230
|
0 |
0 |
if $capture_count > $max |
232
|
0 |
0 |
if $tmp |
245
|
0 |
0 |
if $tmp |
264
|
0 |
0 |
if ($name =~ /^\$/) |
266
|
0 |
0 |
if ($name =~ /^ \$ \^ ([^\s]*) /x) { } |
286
|
0 |
0 |
if ($name =~ /^%/) |
288
|
0 |
0 |
if $name =~ /::/ |
291
|
0 |
0 |
unless defined $value |
298
|
0 |
0 |
unless defined $_[1] |
300
|
0 |
0 |
if $char eq 'c' |
302
|
0 |
0 |
if $char eq 'C' |
305
|
0 |
0 |
if $char eq 'x' |
307
|
0 |
0 |
if $char eq 'X' |
310
|
0 |
0 |
if $char eq 'o' |
312
|
0 |
0 |
if $char eq 'O' |
315
|
0 |
0 |
if $char eq 'n' |
317
|
0 |
0 |
if $char eq 'N' |
322
|
0 |
0 |
if $char eq 'h' |
324
|
0 |
0 |
if $char eq 'H' |
327
|
0 |
0 |
if $char eq 'v' |
329
|
0 |
0 |
if $char eq 'V' |
333
|
0 |
0 |
if $char eq $_ |
334
|
0 |
0 |
if $char eq uc $_ |
336
|
0 |
0 |
if $char eq '\\' |
337
|
0 |
0 |
unless $char eq '!' |
362
|
0 |
0 |
if $code eq '{*}' |
364
|
0 |
0 |
if (ref $code and defined $Pugs::Compiler::Perl6::VERSION) { } |
384
|
0 |
0 |
if $code =~ /return/ |
400
|
0 |
0 |
if $modifier eq '?' |
401
|
0 |
0 |
if $modifier eq '!' |
404
|
0 |
0 |
if $modifier eq '?' or $modifier eq '!' |
425
|
0 |
0 |
if ref $name eq 'HASH' |
453
|
0 |
0 |
if $str eq '^' |
455
|
0 |
0 |
if $str eq ':' |
457
|
0 |
0 |
if $str eq '$' |
459
|
0 |
0 |
if $str eq '^^' |
461
|
0 |
0 |
if $str eq '$$' |
463
|
0 |
0 |
if $str eq '<<' |
465
|
0 |
0 |
if $str eq '>>' |
473
|
0 |
0 |
if $str eq 'ignorecase' |
481
|
0 |
0 |
$_[0] eq '\\' ? : |
482
|
0 |
0 |
unless $char =~ /!/ |
487
|
0 |
0 |
unless $cmd =~ /!/ |
497
|
0 |
0 |
unless defined $param_list |
512
|
0 |
0 |
if $modifier eq '!' |
515
|
0 |
0 |
if ($prefix eq '@') |
521
|
0 |
0 |
if ($prefix eq '%') |
525
|
0 |
0 |
if $cmd =~ /::/ |
534
|
0 |
0 |
if ($prefix eq '$') |
535
|
0 |
0 |
if ($cmd =~ /::/) |
551
|
0 |
0 |
if ($prefix eq q[']) |
553
|
0 |
0 |
unless $cmd =~ /!/ |
556
|
0 |
0 |
if ($prefix eq '"') |
561
|
0 |
0 |
if ($prefix eq '.') |
563
|
0 |
0 |
if ($cmd =~ /^{/) |
569
|
0 |
0 |
if ($prefix eq '?') |
572
|
0 |
0 |
if ($cmd =~ /^{/) |
578
|
0 |
0 |
if ($prefix =~ /[_[:alnum:]]/) |
579
|
0 |
0 |
if ($cmd eq 'cut') |
583
|
0 |
0 |
if ($cmd eq 'commit') |
590
|
0 |
0 |
unless defined $param_list |