| line |
true |
false |
branch |
|
14
|
0 |
0 |
if $key =~ /^_/ or not ref $node |
|
16
|
0 |
0 |
if ($key eq 'closure') |
|
18
|
0 |
0 |
if ref $node ne 'HASH' |
|
20
|
0 |
0 |
if ($code and not ref $code and $code =~ /\w+/) |
|
24
|
0 |
0 |
if (ref $node) |
|
26
|
0 |
0 |
if ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
30
|
0 |
0 |
if (ref $child and ref $child eq 'HASH') |
|
51
|
0 |
0 |
if ($type eq 'block') |
|
53
|
0 |
0 |
if ($$opts{'safe_mode'} and $code =~ /\w+/) |
|
66
|
0 |
0 |
if ($type eq 'rule') |
|
72
|
0 |
0 |
if ($$opts{'safe_mode'}) |
|
76
|
0 |
0 |
if ($type eq 'regex') { } |
|
97
|
0 |
0 |
$name eq 'Pugs::Grammar::Rule' ? : |