| line |
true |
false |
branch |
|
32
|
338 |
5392 |
if exists $h{$kk} |
|
61
|
0 |
23 |
unless (defined $source) |
|
65
|
0 |
23 |
unless ($LEGAL_TYPE{$stype}) |
|
69
|
20 |
3 |
defined $alt_delim ? : |
|
84
|
0 |
23 |
unless $self->_acquire_data |
|
95
|
37 |
0 |
if ($type eq 'STRING') { } |
|
|
0 |
0 |
elsif ($type eq 'FILE') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'FILEHANDLE') { } |
|
99
|
0 |
0 |
unless (defined $data) |
|
103
|
0 |
0 |
if ($$self{'UNTAINT'} and _is_clean($$self{'SOURCE'})) |
|
117
|
0 |
0 |
if ($$self{'UNTAINT'}) |
|
132
|
0 |
0 |
unless $$self{'DATA_ACQUIRED'} |
|
147
|
0 |
23 |
if $$self{'TYPE'} eq 'PREPARSED' |
|
149
|
0 |
23 |
unless $self->_acquire_data |
|
150
|
0 |
23 |
unless ($$self{'TYPE'} eq 'STRING') |
|
165
|
20 |
3 |
if (defined $delim_pats) { } |
|
181
|
83 |
359 |
if $t eq '' |
|
182
|
57 |
302 |
if ($t eq $t_open) { } |
|
|
57 |
245 |
elsif ($t eq $t_close) { } |
|
|
0 |
245 |
elsif (not $delim_pats and $t eq '\\\\') { } |
|
|
0 |
245 |
elsif (not $delim_pats and $t =~ /^\\([{}])$/) { } |
|
|
104 |
141 |
elsif ($t eq "\n") { } |
|
183
|
56 |
1 |
if ($depth == 0) { } |
|
184
|
34 |
22 |
if $cur_item ne '' |
|
196
|
0 |
57 |
if ($depth < 0) { } |
|
|
56 |
1 |
elsif ($depth == 0) { } |
|
201
|
28 |
28 |
if ($cur_item =~ /^#line (\d+)$/) { } |
|
|
28 |
0 |
elsif ($cur_item ne '') { } |
|
223
|
0 |
23 |
if ($state eq 'PROG') { } |
|
|
23 |
0 |
elsif ($state eq 'TEXT') { } |
|
227
|
23 |
0 |
if $cur_item ne '' |
|
240
|
90 |
0 |
unless (defined $t) |
|
242
|
13 |
77 |
unless (defined $t) |
|
246
|
0 |
90 |
if $#_ >= 1 |
|
254
|
0 |
90 |
unless ($$fi_self{'TYPE'} eq 'PREPARSED') |
|
256
|
0 |
0 |
defined $delims ? : |
|
257
|
0 |
0 |
unless $fi_self->compile(@delim_arg) |
|
274
|
90 |
0 |
unless (defined $fi_prepend) |
|
278
|
0 |
90 |
if (defined $fi_safe) { } |
|
|
89 |
1 |
elsif (defined $fi_package) { } |
|
|
1 |
0 |
elsif (defined $fi_varhash) { } |
|
290
|
8 |
82 |
if (defined $fi_varhash) |
|
291
|
7 |
1 |
if (defined $fi_package) { } |
|
|
0 |
1 |
elsif (defined $fi_safe) { } |
|
301
|
0 |
90 |
if (defined $fi_package and defined $fi_safe) |
|
310
|
5 |
85 |
if (defined $fi_ofh) { } |
|
311
|
5 |
0 |
if (ref $fi_ofh eq 'CODE') { } |
|
322
|
195 |
95 |
if ($fi_type eq 'TEXT') { } |
|
|
95 |
0 |
elsif ($fi_type eq 'PROG') { } |
|
331
|
0 |
95 |
if ($fi_safe) { } |
|
336
|
0 |
0 |
if defined $OUT |
|
340
|
69 |
26 |
if (ref $fi_evalcache eq 'HASH') { } |
|
342
|
25 |
44 |
unless (defined $fn) |
|
347
|
69 |
0 |
if $fn |
|
351
|
0 |
26 |
if defined $OUT |
|
359
|
50 |
45 |
unless defined $fi_res |
|
361
|
14 |
81 |
if ($fi_eval_err) { } |
|
367
|
14 |
0 |
if (defined $fi_res) { } |
|
380
|
1 |
89 |
if $fi_scrub_package |
|
381
|
5 |
85 |
defined $fi_ofh ? : |
|
387
|
0 |
0 |
unless my $templ = $pack->new('TYPE', 'STRING', 'SOURCE', $text, @_) |
|
389
|
0 |
0 |
unless $templ->compile |
|
397
|
0 |
0 |
unless defined $package |
|
403
|
0 |
0 |
unless my $templ = 'Text::Template::Base'->new('TYPE', 'FILE', 'SOURCE', $fn, @_) |
|
405
|
0 |
0 |
unless $templ->compile |
|
423
|
0 |
0 |
unless (open F, $fn) |
|
465
|
8 |
0 |
if (UNIVERSAL::isa($hashlist, 'HASH')) |
|
475
|
0 |
9 |
if (not defined $val) { } |
|
|
5 |
4 |
elsif (ref $val) { } |