| blib/lib/Perl/APIReference.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 16 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 89 | 99 | 0 | exists $Perls{$version} ? : |
| 96 | 0 | 99 | unless defined $perl_version |
| 98 | 0 | 99 | if lc $perl_version eq "newest" |
| 99 | 0 | 99 | if lc $perl_version eq "newest_devel" |
| 103 | 0 | 99 | unless exists $Perls{$perl_version} |
| 107 | 0 | 99 | if $@ |
| 140 | 0 | 0 | unless (defined $classname) |
| 157 | 0 | 0 | unless open my $fh, ">", $file_name |