| 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 $@ |