| line |
true |
false |
branch |
|
30
|
0 |
5 |
unless open my $fh, '<', \$string |
|
57
|
0 |
0 |
unless open my $fh, '<', $file |
|
230
|
0 |
189 |
unless defined $token |
|
233
|
127 |
62 |
unless $$input =~ /$rule/ |
|
238
|
32 |
30 |
if (defined(my $val = $$token[1])) { } |
|
|
8 |
22 |
elsif ($#- > 0) { } |
|
239
|
15 |
17 |
if (ref $val eq 'CODE') { } |
|
250
|
8 |
54 |
if ($token_name eq 'Safe_String') |
|
251
|
0 |
8 |
if ($self->exhaustive_strings) { } |
|
|
0 |
8 |
elsif ($matched_value =~ /(.*) $/) { } |
|
278
|
55 |
35 |
if (@$expected_tokens) |
|
287
|
1 |
89 |
unless ($ok) |
|
311
|
1 |
15 |
if $$line_token[0] eq 'Junk_Line' |
|
312
|
1 |
14 |
unless (defined $rec->read(@$line_token)) |
|
381
|
0 |
4 |
if defined $_[1] |
|
382
|
1 |
3 |
if defined $_[2] |
|
389
|
0 |
4 |
if defined $_[1] |
|
442
|
8 |
0 |
if defined $_[2] |
|
443
|
0 |
8 |
if defined $_[3] |
|
444
|
0 |
8 |
if defined $_[4] and defined $_[4][0] |
|
445
|
0 |
8 |
if defined $_[4] and defined $_[4][1] |
|
457
|
0 |
0 |
if defined $_[1] |