| blib/lib/Apache/EmbeddedPerl/Lite.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 159 | 0 | 0 | if $ct |
| 178 | 1 | 6 | unless -e $file and open F, $file |
| 182 | 5 | 61 | if ($line =~ /^\s*\<\!--\s+perl\s*/) |
| 186 | 0 | 5 | if exists $INC{'diagnostics.pm'} |
| 190 | 4 | 38 | if ($line =~ /^\s*-->/) |
| 192 | 1 | 3 | if ($@) |