| blib/lib/Perl/APIReference.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 16 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 84 | 49 | 0 | exists $Perls{$version} ? : |
| 91 | 0 | 49 | unless defined $perl_version |
| 93 | 0 | 49 | if lc $perl_version eq 'newest' |
| 94 | 0 | 49 | if lc $perl_version eq 'newest_devel' |
| 98 | 0 | 49 | unless exists $Perls{$perl_version} |
| 102 | 0 | 49 | if $@ |
| 135 | 0 | 0 | unless (defined $classname) |
| 151 | 0 | 0 | unless open my $fh, '>', $file_name |