| blib/lib/Module/Which.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 14 | 42.8 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 0 | 4 | $@ ? : |
| 84 | 0 | 0 | unless my $meth = $meth{$opt_meth} |
| 94 | 1 | 0 | if ref $_[-1] |
| 95 | 0 | 1 | unless $options->{'return'} |
| 103 | 0 | 4 | if ($pm eq 'perl') |
| 116 | 4 | 0 | if (@pm_files) { } |
| 128 | 1 | 0 | if $options->{'return'} eq 'ARRAY' |