| blib/lib/Pod/Readme/Brief.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 22 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 1 | 2 | $do_loose ? : |
| 16 | 0 | 3 | unless @match |
| 24 | 0 | 1 | unless defined $name and not @ambiguous |
| 27 | 0 | 1 | unless $name =~ /\A\w+(?:::\w+)*\z/ |
| 31 | 1 | 0 | if (my(@encoding) = grep(/^=encoding\s/, @$self)) |
| 32 | 0 | 1 | if @encoding > 1 |
| 53 | 1 | 0 | $installer ? : |
| 55 | 0 | 0 | $installer eq 'mb' ? : |
| 1 | 0 | $installer eq 'eumm' ? : | |
| 63 | 0 | 1 | unless open my $in, "<", \$pod |
| 64 | 0 | 1 | unless open my $out, ">", \$text |