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