| blib/lib/Perl/APIReference.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 16 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 79 | 45 | 0 | exists $Perls{$version} ? : |
| 86 | 0 | 45 | unless defined $perl_version |
| 88 | 0 | 45 | if lc $perl_version eq 'newest' |
| 89 | 0 | 45 | if lc $perl_version eq 'newest_devel' |
| 92 | 0 | 45 | unless exists $Perls{$perl_version} |
| 97 | 0 | 45 | if $@ |
| 130 | 0 | 0 | unless (defined $classname) |
| 143 | 0 | 0 | unless open my $fh, '>', $file_name |