line |
true |
false |
branch |
51
|
6 |
0 |
if (scalar keys %{'Templ::Tag::' . $tag_class . '::';}) { } |
|
0 |
0 |
elsif (not scalar keys %{$tag_class . '::';}) { } |
69
|
0 |
0 |
unless (defined $class or ref $class or not $class =~ /^(\w+\:\:)*\w+$/) |
74
|
3 |
1 |
if (scalar keys %{'Templ::Template::' . $class . '::';}) { } |
|
0 |
1 |
elsif (not scalar keys %{$class . '::';}) { } |
92
|
3 |
0 |
unless (defined $templ_cache{$id}) |
104
|
8 |
7 |
unless scalar @{$this_class . '::TEMPL_TAGS';} |
107
|
4 |
0 |
wantarray ? : |
115
|
12 |
3 |
unless scalar @{$this_class . '::TEMPL_HEADERS';} |
135
|
0 |
4 |
unless defined $source |
139
|
2 |
2 |
if (not ref $source) { } |
|
0 |
2 |
elsif (ref $source eq 'ARRAY') { } |
|
1 |
1 |
elsif (ref $source eq 'SCALAR') { } |
|
1 |
0 |
elsif (&openhandle($source) or eval {
do {
$source->can('getline')
}
}) { } |
146
|
0 |
1 |
unless -f $$source |
148
|
0 |
1 |
unless defined $fh |
166
|
1 |
0 |
unless (defined $self->{'as_perl'}) |
178
|
0 |
0 |
unless (defined $self->{'as_pretty_perl'}) |
189
|
2 |
1 |
unless (defined $self->{'as_sub'}) |
192
|
0 |
2 |
if $@ |
209
|
0 |
0 |
unless (defined $self->{'as_print'}) |
221
|
0 |
0 |
unless (defined $self->{'as_pretty_print'}) |
232
|
1 |
0 |
unless (defined $self->{'as_print_sub'}) |
235
|
0 |
1 |
if $@ |