| blib/lib/Module/EnforceLoad.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 1 | 528 | if $file =~ /^[0-9\.]+$/ |
| 29 | 509 | 19 | if $MOD |
| 66 | 0 | 94 | if $OVERRIDE{$mod}++ |
| 76 | 713 | 2622 | unless my $orig = $mod->can($i) |
| 77 | 0 | 2622 | if $OVERRIDE{"${mod}::$i"}++ |
| 78 | 6 | 2616 | if $i eq 'DESTROY' |
| 79 | 36 | 2580 | if $i eq 'can' |
| 83 | 1 | 95 | if ($ENFORCE and not $RELOADS{$mod}) |
| 95 | 0 | 1 | if ($DEBUG) |