| line |
true |
false |
branch |
|
26
|
0 |
1 |
unless open $fh, '<', $file |
|
38
|
1 |
2 |
if -f $path |
|
47
|
2 |
16 |
if ($itype eq 'raw') |
|
52
|
2 |
14 |
if ($itype eq 'uri') { } |
|
90
|
8 |
1 |
unless $opt{'include_path'} |
|
94
|
9 |
0 |
if ($opt{'source'}) { } |
|
|
0 |
0 |
elsif ($opt{'source_file'}) { } |
|
102
|
0 |
0 |
if (ref $file) { } |
|
122
|
0 |
9 |
if ($opt{'output_file'}) { } |
|
127
|
0 |
0 |
if (ref $file) { } |
|
134
|
0 |
0 |
unless open $out_fh, '>', $file |
|
141
|
0 |
9 |
if ($] < 5.008) |
|
149
|
0 |
9 |
unless open $out_fh, '>>', \$out_buf |
|
154
|
0 |
9 |
if ($opt{'reported_filename'}) |
|
165
|
9 |
0 |
if $close_out |
|
166
|
0 |
9 |
if ($@) |
|
168
|
0 |
0 |
if (not defined $errors_to) { } |
|
|
0 |
0 |
elsif (ref $errors_to) { } |
|
174
|
0 |
0 |
if (ref $errors_to eq 'CODE') { } |
|
222
|
31 |
24 |
if (defined $txt and $txt ne '') |
|
226
|
31 |
0 |
if defined $filename |
|
231
|
18 |
37 |
if (defined $ivar) { } |
|
|
1 |
36 |
elsif (defined $include) { } |
|
|
20 |
16 |
elsif (defined $perl) { } |
|
234
|
18 |
0 |
if defined $filename |
|
251
|
0 |
1 |
if (not $ipath) { } |
|
271
|
20 |
0 |
if defined $filename |