| line |
true |
false |
branch |
|
67
|
780 |
264 |
if ($package =~ /Parse::Gnaw/) { } |
|
81
|
780 |
264 |
if ($package =~ /Parse::Gnaw/) { } |
|
96
|
780 |
264 |
if ($package =~ /Parse::Gnaw/) { } |
|
108
|
0 |
327 |
if ($debug) |
|
118
|
0 |
327 |
if ($@) |
|
129
|
0 |
166 |
if ($debug) |
|
138
|
144 |
22 |
if (defined $retval and ref $retval eq 'HASH') |
|
142
|
22 |
0 |
if ($createifnotexist) |
|
154
|
0 |
70 |
if ($debug) |
|
165
|
1 |
69 |
if (defined $retval and ref $retval eq 'ARRAY') |
|
169
|
69 |
0 |
if ($createifnotexist) |
|
214
|
0 |
264 |
unless (ref $argref eq 'ARRAY') |
|
220
|
264 |
0 |
unless (ref $$argref[0]) |
|
229
|
206 |
58 |
if (ref $$argref[0] eq 'HASH') { } |
|
236
|
264 |
0 |
if (defined $parm_payload) { } |
|
237
|
80 |
184 |
if (exists $$info_href{'payload'}) { } |
|
241
|
0 |
80 |
unless ($parm_payload eq $hash_payload) |
|
253
|
0 |
0 |
unless (exists $$info_href{'payload'}) |
|
260
|
70 |
194 |
unless (exists $$info_href{'package'}) |
|
261
|
70 |
194 |
unless (exists $$info_href{'filename'}) |
|
262
|
70 |
194 |
unless (exists $$info_href{'linenum'}) |
|
263
|
184 |
80 |
unless (exists $$info_href{'methodname'}) |
|
298
|
0 |
70 |
if ($debug) |
|
302
|
0 |
70 |
if ($debug) |
|
309
|
59 |
11 |
unless (exists $$info_href{'quantifier'}) |
|
313
|
0 |
70 |
if ($rulename =~ /\:\:/) |
|
319
|
3 |
67 |
if (exists $$rulebook{$rulename}) |
|
325
|
2 |
1 |
if ($oldmethod eq 'predeclare') { } |
|
354
|
0 |
153 |
if ($debug) |
|
364
|
60 |
93 |
if ($ref) { } |
|
365
|
60 |
0 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'HASH') { } |
|
372
|
0 |
93 |
if ($subrule eq $subrule + 0) { } |
|
382
|
93 |
60 |
if ($isstring) { } |
|
|
60 |
0 |
elsif ($isarray) { } |
|
383
|
0 |
93 |
if ($debug) |
|
392
|
0 |
60 |
if ($debug) |
|
452
|
49 |
149 |
if scalar @subrules == 0 |
|
456
|
21 |
128 |
$method eq 'call' ? : |
|
461
|
21 |
128 |
if ($iscall) |
|
474
|
15 |
6 |
unless (exists $$rulefragcntr{$key_for_rule_fragment_counter}) |
|
509
|
0 |
93 |
if ($debug) |
|
512
|
0 |
93 |
if ($debug) |
|
537
|
0 |
2 |
if ($debug) |
|
541
|
0 |
2 |
if ($debug) |
|
548
|
2 |
0 |
unless (exists $$info_href{'quantifier'}) |
|
552
|
0 |
2 |
if ($rulename =~ /\:\:/) |
|
570
|
0 |
25 |
if ($debug) |
|
573
|
0 |
25 |
if ($debug) |
|
580
|
1 |
24 |
unless (exists $$rulebook{$ruletocall}) |
|
610
|
5 |
6 |
if (ref $min_max eq 'HASH') { } |
|
617
|
0 |
6 |
if (ref $min_max eq 'ARRAY') { } |
|
622
|
0 |
6 |
if ($min_max =~ /\A(\d+)?\,(\d+)?\Z/) { } |
|
|
6 |
0 |
elsif ($min_max eq '+') { } |
|
|
0 |
0 |
elsif ($min_max eq '*') { } |
|
|
0 |
0 |
elsif ($min_max eq '?') { } |
|
647
|
0 |
11 |
if ($debug) |
|
678
|
0 |
2 |
if ($debug) |
|
690
|
0 |
10 |
if ($$hash_of_letters{$char} > 1) |
|
708
|
0 |
1 |
if ($debug) |
|
720
|
0 |
5 |
if ($$hash_of_letters{$char} > 1) |
|
744
|
0 |
0 |
if ($debug) |
|
753
|
0 |
0 |
unless (ref $arr_ref eq 'ARRAY') |