| line |
true |
false |
branch |
|
36
|
347 |
10248 |
if exists $h{$kk} |
|
70
|
2 |
110 |
unless (defined $source) |
|
75
|
1 |
109 |
unless ($LEGAL_TYPE{$stype}) |
|
80
|
19 |
90 |
defined $alt_delim ? : |
|
96
|
1 |
108 |
unless $self->_acquire_data |
|
109
|
193 |
23 |
if ($type eq 'STRING') { } |
|
|
10 |
13 |
elsif ($type eq 'FILE') { } |
|
|
5 |
8 |
elsif ($type eq 'ARRAY') { } |
|
|
8 |
0 |
elsif ($type eq 'FILEHANDLE') { } |
|
114
|
1 |
9 |
unless (defined $data) |
|
120
|
1 |
8 |
if ($self->{'UNTAINT'} and _is_clean($self->{'SOURCE'})) |
|
124
|
2 |
7 |
if (defined $self->{'ENCODING'}) |
|
142
|
1 |
7 |
if ($self->{'UNTAINT'}) |
|
160
|
0 |
7 |
unless $self->{'DATA_ACQUIRED'} |
|
178
|
0 |
107 |
if $self->{'TYPE'} eq "PREPARSED" |
|
180
|
0 |
107 |
unless $self->_acquire_data |
|
182
|
0 |
107 |
unless ($self->{'TYPE'} eq "STRING") |
|
196
|
21 |
86 |
if (defined $delim_pats) { } |
|
215
|
88 |
571 |
if $t eq "" |
|
217
|
127 |
444 |
if ($t eq $t_open) { } |
|
|
137 |
307 |
elsif ($t eq $t_close) { } |
|
|
6 |
301 |
elsif (not $delim_pats and $t eq '\\\\') { } |
|
|
6 |
295 |
elsif (not $delim_pats and $t =~ /^\\([{}])$/) { } |
|
|
44 |
251 |
elsif ($t eq "\n") { } |
|
218
|
118 |
9 |
if ($depth == 0) { } |
|
219
|
80 |
38 |
if $cur_item ne "" |
|
231
|
10 |
127 |
if ($depth < 0) { } |
|
|
118 |
9 |
elsif ($depth == 0) { } |
|
236
|
118 |
0 |
if $cur_item ne "" |
|
259
|
0 |
97 |
if ($state eq 'PROG') { } |
|
|
97 |
0 |
elsif ($state eq 'TEXT') { } |
|
264
|
38 |
59 |
if $cur_item ne "" |
|
281
|
112 |
4 |
unless (defined $t) |
|
283
|
10 |
102 |
unless (defined $t) |
|
288
|
0 |
116 |
if $#_ >= 1 |
|
296
|
90 |
40 |
unless ($fi_self->{'TYPE'} eq "PREPARSED") |
|
298
|
2 |
88 |
defined $delims ? : |
|
299
|
10 |
80 |
unless $fi_self->compile(@delim_arg) |
|
316
|
116 |
4 |
unless (defined $fi_prepend) |
|
320
|
12 |
108 |
if (defined $fi_safe) { } |
|
|
31 |
77 |
elsif (defined $fi_package) { } |
|
|
21 |
56 |
elsif (defined $fi_varhash) { } |
|
337
|
31 |
89 |
if (defined $fi_varhash) |
|
338
|
9 |
22 |
if (defined $fi_package) { } |
|
|
1 |
21 |
elsif (defined $fi_safe) { } |
|
348
|
2 |
29 |
if ($fi_strict) |
|
349
|
2 |
0 |
if @fi_varlist |
|
354
|
2 |
118 |
if (defined $fi_package and defined $fi_safe) |
|
366
|
139 |
137 |
if ($fi_type eq 'TEXT') { } |
|
|
137 |
0 |
elsif ($fi_type eq 'PROG') { } |
|
381
|
15 |
122 |
if ($fi_safe) { } |
|
389
|
4 |
11 |
if defined $OUT |
|
398
|
4 |
110 |
if defined $OUT |
|
404
|
22 |
107 |
unless defined $fi_res |
|
406
|
11 |
118 |
if ($fi_eval_err) { } |
|
412
|
10 |
1 |
if (defined $fi_res) { } |
|
436
|
21 |
90 |
if $fi_scrub_package |
|
438
|
1 |
110 |
defined $fi_ofh ? : |
|
444
|
2 |
265 |
if (defined $arg{'handle'}) { } |
|
457
|
0 |
6 |
unless my $templ = $pack->new("TYPE", "STRING", "SOURCE", $text, @_) |
|
460
|
0 |
6 |
unless $templ->compile |
|
472
|
3 |
1 |
unless defined $package |
|
479
|
0 |
2 |
unless my $templ = "Text::Template"->new("TYPE", "FILE", "SOURCE", $fn, @_) |
|
481
|
0 |
2 |
unless $templ->compile |
|
504
|
1 |
9 |
unless (open my $fh, "<", $fn) |
|
559
|
29 |
2 |
if (UNIVERSAL::isa($hashlist, "HASH")) |
|
574
|
2 |
48 |
if (not defined $val) { } |
|
|
10 |
38 |
elsif (ref $val) { } |
|
582
|
1 |
9 |
if (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
|
0 |
9 |
elsif (UNIVERSAL::isa($val, 'HASH')) { } |