| blib/lib/Template/EmbeddedPerl/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 0 | 6 | unless defined $javascript |
| 59 | 0 | 2 | if $ENV{'DEBUG_TEMPLATE_EMBEDDED_PERL'} |
| 61 | 0 | 2 | $source ? : |
| 69 | 0 | 3 | unless ($file =~ /eval/) |
| 76 | 2 | 1 | $line - 1 >= 0 ? : |
| 77 | 3 | 0 | $line + 1 < scalar @$template ? : |