| 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} |