blib/lib/Paranoid/Module.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 16 | 20 | 80.0 |
line | true | false | branch |
---|---|---|---|
75 | 42 | 2 | @args ? : |
78 | 0 | 44 | unless defined $module |
85 | 43 | 1 | unless (exists $modules{$module}) |
89 | 43 | 0 | if (&detaint(\$module, 'filename', \$m)) { } |
99 | 43 | 0 | unless (exists $modules{$module}) |
102 | 40 | 3 | eval "require $module; 1;" ? : |
110 | 42 | 2 | if (@args) { } |
111 | 16 | 26 | if $a eq "qw()" |
119 | 41 | 3 | if ($modules{$module}) |
120 | 0 | 41 | if (exists $imports{$cm}) { } |