| blib/lib/Hub/Data/Directory.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 26 | 19.2 |
| line | true | false | branch |
|---|---|---|---|
| 12 | 0 | 8 | unless my $path = shift() |
| 14 | 0 | 8 | unless defined $path |
| 16 | 8 | 0 | unless ($obj) |
| 29 | 0 | 0 | unless ref $self |
| 30 | 0 | 0 | if (defined $index) |
| 31 | 0 | 0 | if -e "$$self{'*path'}/$index" and not defined $$self{$index} |
| 35 | 0 | 0 | $index =~ /^\{(.*)\}$/ ? : |
| 43 | 0 | 0 | unless ref $self |
| 49 | 0 | 8 | unless ref $self |
| 61 | 0 | 59 | unless grep {$_ eq $k;} @list |
| 67 | 0 | 0 | unless ref $self |
| 69 | 0 | 0 | unless isa($sort_order, 'ARRAY') |
| 72 | 0 | 0 | unless defined $md |