blib/lib/Devel/Main.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 7 | 12 | 58.3 |
line | true | false | branch |
---|---|---|---|
11 | 0 | 2 | unless @_ |
13 | 0 | 2 | ref $_[0] ? : |
18 | 0 | 2 | ref $_[0] ? : |
20 | 0 | 2 | unless (my $gen = $class->can("${name}_generator")) |
44 | 1 | 1 | if (not defined caller 1) { } |
46 | 1 | 0 | if $exit |