| line |
true |
false |
branch |
|
66
|
0 |
1 |
@_ && ref $_[0] eq 'HASH' ? : |
|
69
|
0 |
1 |
if ($args{'file'}) |
|
80
|
0 |
1 |
if (my $fh = $$self{'fh'}) |
|
100
|
0 |
0 |
if (my $file = shift()) |
|
103
|
0 |
0 |
if (-e $file and -s _ and -r _) { } |
|
104
|
0 |
0 |
unless open my $fh, '<', $file |
|
150
|
0 |
0 |
if (my $fh = $$self{'fh'}) { } |
|
156
|
0 |
0 |
if not defined $rec or $rec =~ /\S+/ |
|
159
|
0 |
0 |
if (defined $rec and $rec =~ /\S+/) { } |
|
186
|
0 |
2 |
unless my $text = shift() |
|
187
|
0 |
2 |
unless my $parser = $self->parser |
|
207
|
1 |
1 |
unless (defined $$self{'parser'}) |
|
208
|
0 |
1 |
unless my $grammar = $self->grammar |