| lib/Template/Document.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 28 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 92 | 0 | $] > 5.007 ? : |
| 92 | 0 | if ($UNICODE = $] > 5.007 ? 1 : 0) | |
| 37 | 92 | 0 | if ($] > 5.008) { } |
| 0 | 0 | elsif ($] == 5.008) { } | |
| 70 | 1305 | 16 | unless (ref $block) |
| 79 | 0 | 1305 | unless defined $block |
| 87 | 6 | 134 | ref $_ ? : |
| 156 | 1 | 1372 | if $self->{'_HOT'} and not $context->{'RECURSION'} |
| 169 | 20 | 1352 | if $@ |
| 188 | 1302 | 36 | if $method eq 'DESTROY' |
| 214 | 0 | 0 | if ($dblks = $self->{'_DEFBLOCKS'}) |
| 295 | 0 | 17 | unless $file =~ /^(.+)$/s |
| 306 | 5 | 12 | if ($UNICODE and is_utf8($perlcode)) |
| 313 | 0 | 17 | if $@ |