| blib/lib/PDL/Demos.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 24 | 41.6 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 0 | defined $PERLDL::TERM ? : |
| 24 | 0 | 0 | defined $PERLDL::TERM ? : |
| 39 | 0 | 0 | if $@ |
| 45 | 1 | 1 | if $searched |
| 49 | 5 | 3 | unless -d (my $dir = "File::Spec"->catdir($path, @d)) |
| 50 | 0 | 3 | unless opendir my $dirfh, $dir |
| 54 | 12 | 6 | if $found_already{$found_mod}++ |
| 60 | 0 | 0 | unless opendir my $dirfh, $subd |
| 64 | 0 | 0 | if $found_already{$found_mod}++ |
| 74 | 2 | 1 | if $kw_loaded |
| 88 | 1 | 0 | $pkg->can('demo') ? : |
| 93 | 0 | 0 | unless $pkg->can($method) |