blib/lib/Path/List/Rule.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 23 | 28 | 82.1 |
line | true | false | branch |
---|---|---|---|
34 | 1 | 44 | if substr($path, -1, 1) eq "/" |
43 | 0 | 45 | if (not defined $fs) { } |
44 | 1 | elsif (defined $leaf) { } | |
50 | 29 | 15 | if $self{'is_dir'} |
69 | 0 | 156 | if ($op eq "e") |
70 | 45 | 111 | if ($op eq "l") |
71 | 30 | 81 | if ($op eq 'r') { } |
54 | 27 | elsif ($op eq 'd') { } | |
27 | 0 | elsif ($op eq 'f') { } | |
99 | 9 | 0 | unless length $dirs[-1] |
100 | 2 | 7 | unless length $file |
115 | 7 | 8 | unless exists $ref->{$entry} |
118 | 3 | 1 | if defined $file |
135 | 0 | 6 | unless exists $ref->{$entry} |