| line |
true |
false |
branch |
|
57
|
0 |
30 |
unless open $self->{'cf_FH'}, '<', $fn |
|
88
|
0 |
64 |
unless open $self->{'cf_FH'}, '<', \$self->{'cf_string'} |
|
103
|
0 |
0 |
wantarray ? : |
|
110
|
259 |
24 |
if (my(@tokens) = $self->tokenize) { } |
|
122
|
95 |
188 |
unless ($self->{'fh_configured'}++) |
|
123
|
21 |
12 |
if (not $self->{'cf_bytes'} || $self->{'cf_string'} and $self->{'cf_encoding'}) |
|
127
|
0 |
95 |
if ($self->{'cf_crlf'}) |
|
135
|
17 |
266 |
unless defined(my $para = readline $fh) |
|
148
|
0 |
266 |
if $reader->{'cf_nocr'} |
|
149
|
0 |
266 |
if (my $sub = $reader->{'cf_subst'}) |
|
158
|
25 |
1255 |
if ($token =~ s/^(?:\#[^\n]*(?:\n|$))+//) |
|
160
|
25 |
0 |
if $token eq '' |
|
163
|
0 |
1255 |
unless ($token =~ s/^($cc_name*$re_suffix*) ($cc_sigil) (?:($cc_tabsp)|(\n|$))//x) |
|
168
|
546 |
709 |
if ($name eq '') { } |
|
|
0 |
709 |
elsif ($NAME_LESS{$sigil}) { } |
|
171
|
0 |
546 |
if $sigil eq ':' and not $reader->{'cf_allow_empty_name'} |
|
178
|
0 |
1255 |
if $sigil eq '#' |
|
180
|
194 |
1061 |
if ($CLO{$sigil}) |
|
187
|
666 |
589 |
if (defined $eol) { } |
|
194
|
0 |
666 |
if $sigil eq '{' and $token ne '' |
|
207
|
7 |
259 |
if $ncomments and not @result |
|
209
|
259 |
0 |
wantarray ? : |
|
231
|
2 |
708 |
unless (defined $desc->[0]) |
|
237
|
657 |
51 |
if $desc->[0] ne '' or $ALLOW_EMPTY_NAME{$desc->[1]} |
|
238
|
154 |
554 |
if (my $sub = $OPN{$desc->[1]}) { } |
|
245
|
248 |
5 |
if (wantarray) { } |
|
259
|
0 |
174 |
if defined $first and $first->[2] ne '' |
|
263
|
313 |
173 |
defined $desc->[0] ? : |
|
264
|
1 |
172 |
if ($desc->[1] ne ']') |
|
277
|
57 |
256 |
if (my $sub = $OPN{$desc->[1]}) { } |
|
293
|
0 |
20 |
if defined $first and $first->[2] ne '' |
|
302
|
7 |
26 |
do {
$desc->[1] eq '-'
} ? : |
|
|
33 |
19 |
defined $desc->[0] ? : |
|
303
|
1 |
18 |
if ($desc->[1] ne '}') |
|
313
|
0 |
7 |
unless ($$posref < @$tokens) |
|
320
|
2 |
5 |
if (my $sub = $OPN{$valdesc->[1]}) { } |
|
|
5 |
0 |
elsif ($valdesc->[1] eq '-') { } |
|
333
|
6 |
20 |
if (my $sub = $OPN{$desc->[1]}) |
|
349
|
25 |
0 |
if ((my $val = $first->[2]) =~ s/^\#(\w+)\s*//) { } |
|
350
|
0 |
25 |
unless my $sub = $EXPR{$1} |
|
360
|
0 |
0 |
do {
ref $_[0] ne 'ARRAY'
} ? : |
|
|
0 |
33 |
defined $_[0] ? : |