| lib/Devel/Trepan/CmdProcessor/Load.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 28 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 13 | 0 | if -d $cmd_dir |
| 56 | 13 | 0 | if (-d $file_or_dir) { } |
| 0 | 0 | elsif (-r $file_or_dir) { } | |
| 63 | 0 | 494 | if $err |
| 68 | 0 | 0 | if $err |
| 83 | 0 | 494 | unless -r $command_file |
| 86 | 0 | 494 | if (not $rc or $rc eq 'Skip me!') { } |
| 494 | 0 | elsif ($rc) { } | |
| 110 | 1 | 2 | unless ('ARRAY' eq ref $cmd_array) |
| 111 | 0 | 1 | ref $cmd_array ? : |
| 120 | 1 | 1 | if (0 == scalar @$cmd_array) |
| 125 | 1 | 0 | if (exists $self->{'commands'}{$cmd_name}) |
| 176 | 494 | 0 | if (eval $new_cmd) { } |
| 178 | 494 | 0 | if ($cmd_obj->{'aliases'}) |