| line |
true |
false |
branch |
|
76
|
2 |
1123 |
ref $_ && (ref $_ eq 'Path::Abstract::Underload' || &blessed($_) && $_->isa('Path::Abstract::Underload')) ? : |
|
77
|
1073 |
52 |
length $_ ? : |
|
79
|
3 |
1114 |
ref $_ eq 'ARRAY' ? : |
|
88
|
786 |
0 |
unless $path eq './' |
|
91
|
755 |
31 |
unless $path eq '/' |
|
92
|
110 |
676 |
if $path ne '/' and $trailing |
|
94
|
523 |
263 |
unless $leading |
|
122
|
11 |
8 |
if $Path::Abstract::_0_093_warn |
|
129
|
7 |
4 |
unless $self->is_tree |
|
141
|
11 |
12 |
if $Path::Abstract::_0_093_warn |
|
148
|
0 |
4 |
if $Path::Abstract::_0_093_warn |
|
155
|
11 |
8 |
if $Path::Abstract::_0_093_warn |
|
161
|
11 |
11 |
if $Path::Abstract::_0_093_warn |
|
167
|
11 |
54 |
if $self->is_empty |
|
169
|
0 |
54 |
if 1 == @path and '' eq $path[0] |
|
171
|
25 |
29 |
if (0 > $index) { } |
|
|
19 |
10 |
elsif (not defined $path[0] && length $path[0]) { } |
|
177
|
6 |
48 |
if $index >= @path |
|
178
|
3 |
45 |
if $index == @path - 1 and not defined $path[$index] or not length $path[$index] |
|
179
|
3 |
45 |
unless defined $path[$index] and length $path[$index] |
|
216
|
0 |
10 |
unless @_ |
|
225
|
0 |
30 |
if (@_ and not defined $_[0]) { } |
|
|
26 |
4 |
elsif (ref $_[0] eq '') { } |
|
233
|
5 |
25 |
if (ref $_[0] eq 'HASH') { } |
|
241
|
1 |
29 |
if ('*' eq $matcher) |
|
244
|
0 |
30 |
if (ref $matcher eq 'Regexp') { } |
|
|
30 |
0 |
elsif ($matcher eq '' or $matcher =~ /^\d+$/) { } |
|
254
|
10 |
20 |
if (not defined $extension) { } |
|
255
|
2 |
8 |
if $self->is_empty or $self->is_root |
|
259
|
5 |
15 |
if ('' eq $extension) { } |
|
|
3 |
12 |
elsif (not $extension =~ /^\./) { } |
|
265
|
6 |
14 |
if ($self->is_empty or $self->is_root) { } |
|
269
|
13 |
1 |
if ($ending =~ s/$matcher/$extension/) { } |
|
289
|
0 |
190 |
if $self->is_empty |
|
291
|
57 |
133 |
unless defined $count |
|
293
|
84 |
106 |
if ($count =~ s/([\^\$\*])$//) |
|
294
|
64 |
20 |
if $1 ne '$' |
|
295
|
52 |
32 |
if $1 ne '^' |
|
297
|
138 |
52 |
unless $re |
|
298
|
24 |
166 |
unless length $count |
|
305
|
262 |
11 |
if ($$self =~ s/$re//) { } |
|
307
|
262 |
0 |
if $popped |
|
308
|
86 |
176 |
unless (length $$self) |
|
309
|
32 |
54 |
if ($greedy_lead) { } |
|
374
|
13 |
137 |
if $self->is_empty |
|
381
|
16 |
53 |
if $self->is_empty |
|
414
|
0 |
5 |
if ($@) { } |