| blib/lib/Perl/APIReference.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 16 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 83 | 48 | 0 | exists $Perls{$version} ? : |
| 90 | 0 | 48 | unless defined $perl_version |
| 92 | 0 | 48 | if lc $perl_version eq 'newest' |
| 93 | 0 | 48 | if lc $perl_version eq 'newest_devel' |
| 97 | 0 | 48 | unless exists $Perls{$perl_version} |
| 101 | 0 | 48 | if $@ |
| 134 | 0 | 0 | unless (defined $classname) |
| 149 | 0 | 0 | unless open my $fh, '>', $file_name |