| blib/lib/autouse.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 24 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 9 | 0 | @_ ? : |
| 19 | 0 | 9 | unless @_ |
| 24 | 5 | 4 | if (exists $INC{$pm}) |
| 33 | 0 | 4 | if $DEBUG |
| 38 | 0 | 4 | if (my $func = $f) =~ s/\((.*)\)$// |
| 43 | 4 | 0 | if ($index == -1) { } |
| 47 | 0 | 0 | unless substr($func, 0, $index) eq $module |
| 52 | 2 | 1 | unless ($INC{$pm}) |
| 58 | 0 | 2 | if $DEBUG |
| 64 | 0 | 4 | if (defined $proto) { } |
| 75 | 7 | 0 | if (my $import = $module->can('import')) |
| 76 | 1 | 6 | unless defined &Exporter::import and $import == \&Exporter::import || $import == \&UNIVERSAL::import |