Branch Coverage

blib/lib/Text/Template.pm
Criterion Covered Total %
branch 124 140 88.5


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')) { }