| blib/lib/above.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 20 | 45.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 11 | $ENV{'PERL_USED_ABOVE'} ? : |
| 27 | 0 | 0 | if $error |
| 38 | 0 | 13 | if $error |
| 54 | 0 | 0 | if (-e 'File::Spec'->join($path, $module)) |
| 62 | 0 | 13 | unless ($cwd) |
| 68 | 12 | 37 | if @parts == 1 and $parts[0] eq '' |
| 84 | 1 | 12 | if (&$found_module_at($path)) |
| 86 | 1 | 0 | unless ($used_libs{$path}) |
| 87 | 0 | 0 | unless $ENV{'PERL_ABOVE_QUIET'} or $ENV{'COMP_LINE'} |
| 93 | 0 | 1 | if $error |