line |
true |
false |
branch |
110
|
4 |
3 |
unless exists $opt{'recurse'}
|
112
|
2 |
5 |
if $opt{'mode'} =~ /^both|dirs$/
|
113
|
6 |
1 |
if $opt{'mode'} =~ /^both|files$/
|
115
|
4 |
3 |
if ($opt{'recurse'})
|
120
|
5 |
6 |
if not $entry->is_dir and $opt{'file'} or $entry->is_dir and $opt{'dir'}
|
127
|
1 |
1 |
if $opt{'dir'} and $opt{'file'}
|
131
|
1 |
1 |
$opt{'dir'} ? :
|
139
|
3 |
14 |
if ($entity->is_dir) { }
|
166
|
0 |
9 |
unless defined $dir
|
168
|
9 |
0 |
unless ref $dir
|
173
|
6 |
3 |
if ($dir->is_absolute) { }
|
179
|
0 |
3 |
unless $self->root_dir->subsumes($dir)
|
186
|
6 |
1 |
unless $subdir eq '..'
|
187
|
1 |
6 |
if $subdir eq '..'
|
220
|
1 |
2 |
unless ($self->root_dir->subsumes($self->_dir))
|
241
|
0 |
7 |
unless $file
|
243
|
0 |
7 |
ref $file ? :
|
245
|
0 |
7 |
unless $self->root_dir->subsumes($file)
|
270
|
0 |
0 |
wantarray ? :
|
|
0 |
3 |
unless my $file = (shift())->file(shift())
|
272
|
0 |
0 |
wantarray ? :
|
|
3 |
0 |
$file->stat ? :
|
283
|
0 |
3 |
unless my $file = (shift())->file(shift())
|