| blib/lib/Path/Trim.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 16 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 64 | 64 | if ($path =~ s/^\Q$directory_separator\E//) |
| 51 | 64 | 64 | if ($path =~ s/\Q$directory_separator\E$//) |
| 58 | 160 | 240 | if ($dir eq $parent_directory) { } |
| 112 | 128 | elsif ($dir ne $current_directory) { } | |
| 59 | 40 | 120 | if (@new_path and $new_path[-1] ne $parent_directory) { } |
| 71 | 16 | 112 | unless (@new_path) |
| 76 | 64 | 64 | if ($left_stripped) |
| 79 | 64 | 64 | if ($right_stripped) |