| blib/lib/Getopt/Janus.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 12 | 41.6 |
| line | true | false | branch |
|---|---|---|---|
| 10 | 0 | 8 | if (defined &DEBUG) { } |
| 0 | 8 | elsif (($ENV{'JANUSDEBUG'} || '') =~ /^(-?\d+)$/s) { } | |
| 14 | 0 | 0 | if $@ |
| 66 | 0 | 4 | unless (defined $class and length $class) |
| 73 | 4 | 0 | unless (defined ${"${class}::VERSION";} or @{"${class}::ISA";} or defined &{"${class}::new";}) |
| 79 | 0 | 4 | if $@ |