| line |
true |
false |
branch |
|
100
|
21 |
6 |
if (scalar @_ == 1) { } |
|
|
0 |
6 |
elsif (scalar(@_) % 2 == 1) { } |
|
102
|
0 |
21 |
if (ref $arg) |
|
114
|
54 |
27 |
unless (exists $arguments{$key}) |
|
176
|
0 |
27 |
if ($location) |
|
184
|
27 |
54 |
unless $package =~ /Parse::Gnaw/ |
|
201
|
21 |
23 |
unless (defined $location) |
|
229
|
165 |
44 |
if ($x > 0) |
|
258
|
0 |
209 |
unless (defined $location) |
|
335
|
0 |
74 |
if $count++ > 24 |
|
414
|
0 |
0 |
unless (ref $coderef eq 'CODE') |
|
422
|
0 |
0 |
if ($@) { } |
|
424
|
0 |
0 |
if ($@ =~ /GRAMMARFAIL/) { } |
|
475
|
0 |
54 |
unless (defined $rulename) |
|
482
|
9 |
45 |
if (ref $rulename) { } |
|
483
|
9 |
0 |
if (ref $rulename eq 'ARRAY') { } |
|
491
|
32 |
13 |
if ($rulename =~ /\:\:/) { } |
|
499
|
0 |
13 |
if (scalar @caller < 3) |
|
503
|
0 |
13 |
if ($package =~ /Parse::Gnaw/) |
|
510
|
0 |
13 |
unless (defined $ref and ref $ref eq 'ARRAY') |
|
552
|
9 |
13 |
if ($@) { } |
|
556
|
9 |
0 |
if ($@ =~ /GRAMMARFAIL/) { } |
|
592
|
0 |
0 |
if ($myllist->parse($mygrammarref)) |