| line |
true |
false |
branch |
|
118
|
0 |
148 |
if ($options->{'force_untaint'} and not ${^TAINT}) |
|
123
|
2 |
146 |
if (ref $options->{'associate'} ne "ARRAY") |
|
127
|
29 |
119 |
if (ref $options->{'path'} ne "ARRAY") |
|
131
|
4 |
144 |
if (ref $options->{'filter'} ne "ARRAY") |
|
146
|
136 |
12 |
if exists $options->{'filename'} |
|
147
|
2 |
146 |
if exists $options->{'filehandle'} |
|
148
|
0 |
148 |
if exists $options->{'arrayref'} |
|
149
|
10 |
138 |
if exists $options->{'scalarref'} |
|
150
|
0 |
148 |
if ($source_count != 1) |
|
153
|
0 |
148 |
if ($options->{'arrayref'}) |
|
154
|
0 |
0 |
unless UNIVERSAL::isa($_[0], "ARRAY") |
|
158
|
2 |
146 |
if ($options->{'filehandle'}) |
|
173
|
0 |
148 |
if $options->{'scalarref'} and @{$options->{'filter'};} |
|
197
|
378 |
71 |
if (defined wantarray and not $print_to) { } |
|
216
|
3 |
196 |
if (scalar @_ == 0) { } |
|
|
9 |
187 |
elsif (scalar @_ == 1) { } |
|
219
|
1 |
8 |
if (ref $_[0] and UNIVERSAL::isa($_[0], 'HASH')) { } |
|
223
|
2 |
6 |
$self->{'case_sensitive'} ? : |
|
229
|
40 |
147 |
if ($self->{'case_sensitive'}) { } |
|
239
|
54 |
244 |
if (ref $val) { } |
|
240
|
48 |
6 |
if (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
254
|
20 |
1 |
if (ref $sub eq 'CODE') { } |
|
|
1 |
0 |
elsif (defined $sub) { } |
|
255
|
12 |
8 |
if (ref $self) { } |
|
266
|
0 |
0 |
if (ref $self) { } |
|
267
|
0 |
0 |
if (defined $name) { } |
|
282
|
0 |
121 |
unless (UNIVERSAL::isa($orighash, "HASH")) |
|
287
|
8 |
201 |
if (ref $val) { } |
|
288
|
8 |
0 |
if (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
320
|
0 |
0 |
if (not defined $last_visited_file or $self->{'search_path_on_include'}) { } |
|
327
|
0 |
0 |
unless $filepath |
|
336
|
0 |
0 |
if "File::Spec"->file_name_is_absolute($filename) and -e $filename |
|
340
|
0 |
0 |
if (defined $extra_path) |
|
343
|
0 |
0 |
if -e $filepath |
|
347
|
0 |
0 |
if (defined $ENV{'HTML_TEMPLATE_ROOT'}) |
|
349
|
0 |
0 |
if -e $filepath |
|
355
|
0 |
0 |
if -e $filepath |
|
359
|
0 |
0 |
if -e $filename |
|
362
|
0 |
0 |
if (defined $ENV{'HTML_TEMPLATE_ROOT'}) |
|
365
|
0 |
0 |
if -e $filepath |
|
376
|
0 |
9 |
unless defined open(TEMPLATE, $filepath) |
|
381
|
9 |
0 |
if @{$self->{'filter'};} |
|
393
|
0 |
11 |
unless ref $filter |
|
397
|
2 |
9 |
if ref $filter eq "CODE" |
|
400
|
11 |
0 |
if (ref $filter eq 'HASH') { } |
|
405
|
0 |
11 |
unless defined $format and defined $sub |
|
407
|
0 |
11 |
unless $format eq "array" or $format eq "scalar" |
|
409
|
0 |
11 |
unless ref $sub and ref $sub eq "CODE" |
|
414
|
8 |
3 |
if ($format eq 'scalar') { } |
|
426
|
0 |
11 |
if $@ |