| line |
true |
false |
branch |
|
26
|
0 |
15 |
unless open $self->{'cf_FH'}, '<', $fn |
|
34
|
0 |
7 |
unless open $self->{'cf_FH'}, '<', \$string |
|
45
|
0 |
2 |
unless @{$$reader{'cf_tokens'};} = $reader->tokenize($paragraph) |
|
50
|
0 |
1 |
wantarray ? : |
|
59
|
0 |
205 |
unless my $sub = $reader->can("organize_as_$type") |
|
65
|
13 |
206 |
unless defined(my $paragraph = <$fh>) |
|
68
|
13 |
192 |
unless $reader->{'cf_tokens'} and @{$reader->{'cf_tokens'};} |
|
84
|
94 |
545 |
if (my $type = $OPN{$sigil}) { } |
|
|
4 |
541 |
elsif ($sigil eq '}') { } |
|
102
|
0 |
313 |
if (not $desc->[0] eq '') { } |
|
|
24 |
289 |
elsif (my $type = $OPN{$sigil}) { } |
|
|
114 |
175 |
elsif ($sigil eq ']') { } |
|
117
|
634 |
1 |
if (not defined $_[0]) { } |
|
|
1 |
0 |
elsif (ref $_[0] ne 'ARRAY') { } |
|
130
|
49 |
978 |
if ($token =~ s/^(?:\#[^\n]*(?:\n|$))+//) |
|
132
|
49 |
0 |
if $token eq '' |
|
135
|
0 |
978 |
unless ($token =~ s/^($cc_name*) ($cc_sigil) (?:($cc_tabsp)|(\n|$))//x) |
|
137
|
0 |
0 |
defined $reader->{'cf_filename'} ? : |
|
142
|
0 |
978 |
if $sigil eq '#' |
|
147
|
462 |
516 |
if (not defined $eol) { } |
|
|
122 |
394 |
elsif ($OPN{$sigil}) { } |
|
155
|
0 |
122 |
if $token ne '' |
|
165
|
14 |
198 |
if $ncomments and not @result |
|
167
|
198 |
0 |
wantarray ? : |