| line |
true |
false |
branch |
|
29
|
1 |
375 |
if @_ == 1 and not defined $_[0] |
|
33
|
16 |
354 |
$_[0] eq '' ? : |
|
|
5 |
370 |
@_ == 0 ? : |
|
39
|
215 |
160 |
if (&Scalar::Util::blessed($first) and $first->isa('Path::Class::Dir')) { } |
|
45
|
30 |
130 |
$dirs eq $s->rootdir ? : |
|
50
|
0 |
107 |
&Scalar::Util::blessed($_) && $_->isa('Path::Class::Dir') ? : |
|
73
|
1 |
98 |
$_ eq $u ? : |
|
88
|
1 |
112 |
if $_[0]{'file_spec_class'} |
|
97
|
23 |
9 |
unless @_ |
|
100
|
5 |
4 |
if ($offset < 0) |
|
102
|
2 |
2 |
wantarray ? : |
|
|
4 |
5 |
unless @_ |
|
105
|
2 |
3 |
if ($length < 0) |
|
124
|
10 |
19 |
if ($self->is_absolute) { } |
|
|
2 |
17 |
elsif ($self eq $curdir) { } |
|
|
1 |
16 |
elsif (not grep({$_ ne $updir;} @$dirs)) { } |
|
|
4 |
12 |
elsif (@$dirs == 1) { } |
|
126
|
9 |
1 |
if @$dirs > 1 |
|
150
|
16 |
0 |
length $rel ? : |
|
191
|
0 |
6 |
unless my $callback = $opts{'callback'} |
|
202
|
5 |
0 |
unless (($ret || '') eq $self->PRUNE) |
|
210
|
16 |
2 |
unless (($ret || '') eq $self->PRUNE) |
|
218
|
4 |
1 |
$opts{'preorder'} ? : |
|
|
1 |
5 |
$opts{'depthfirst'} && $opts{'preorder'} ? : |
|
222
|
28 |
20 |
if ($entry->is_dir) { } |
|
234
|
0 |
51 |
unless my $dh = $self->open |
|
238
|
102 |
80 |
if not $opts{'all'} and $self->_is_local_dot_dir($entry) |
|
239
|
0 |
80 |
if $opts{'no_hidden'} and $entry =~ /^\./ |
|
241
|
45 |
35 |
if -d $out[-1] |
|
255
|
2 |
8 |
unless ($$self{'dh'}) |
|
256
|
0 |
2 |
unless $$self{'dh'} = $self->open |
|
260
|
2 |
8 |
unless (defined $next) |
|
268
|
6 |
2 |
if -d $file |
|
274
|
0 |
13 |
unless $other |
|
276
|
6 |
7 |
unless UNIVERSAL::isa($other, 'Path::Class::Entity') |
|
277
|
2 |
11 |
unless $other->is_dir |
|
279
|
8 |
5 |
if ($self->is_absolute) { } |
|
|
0 |
5 |
elsif ($other->is_absolute) { } |
|
288
|
1 |
12 |
if ($self->volume) |
|
289
|
0 |
1 |
unless $other->volume eq $self->volume |
|
294
|
4 |
9 |
if "@{$$self{'dirs'};}" eq "@{$self->new('')->{'dirs'};}" |
|
298
|
1 |
15 |
if $i > $#{$$other{'dirs'};} |
|
299
|
3 |
12 |
if $$self{'dirs'}[$i] ne $$other{'dirs'}[$i] |