| blib/lib/Text/Markup.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 20 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 0 | 3 | unless $_PARSER_FOR{$name} = $pkg->can("parser") |
| 36 | 2 | 26 | unless $format |
| 37 | 16 | 10 | if $_PARSER_FOR{$format} |
| 38 | 1 | 9 | $format eq 'html' ? : |
| 39 | 0 | 10 | unless eval "require $pkg; 1" |
| 58 | 0 | 24 | unless my $file = $p{'file'} |
| 59 | 0 | 24 | unless -e $file and not -d _ |
| 71 | 5 | 3 | unless @_ |
| 77 | 24 | 0 | unless @_ |
| 93 | 31 | 200 | if $file =~ qr/[.]$REGEX_FOR{$format}$/ |