| blib/lib/Text/Markup.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 20 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 0 | 21 | unless $_PARSER_FOR{$name} = $pkg->can("parser") |
| 37 | 2 | 28 | unless $format |
| 38 | 17 | 11 | if $_PARSER_FOR{$format} |
| 39 | 1 | 10 | $format eq 'html' ? : |
| 40 | 0 | 11 | unless eval "require $pkg; 1" |
| 59 | 0 | 26 | unless my $file = $p{'file'} |
| 60 | 0 | 26 | unless -e $file and not -d _ |
| 72 | 5 | 3 | unless @_ |
| 78 | 26 | 0 | unless @_ |
| 94 | 41 | 378 | if $file =~ qr/[.]$REGEX_FOR{$format}$/ |