| line |
true |
false |
branch |
|
138
|
0 |
1 |
unless -e $self->path
|
|
163
|
0 |
1 |
unless my $dir = shift()
|
|
164
|
0 |
1 |
unless my $dh = 'DirHandle'->new($dir)
|
|
199
|
3 |
0 |
unless $path
|
|
237
|
0 |
1 |
unless $code
|
|
265
|
0 |
2 |
unless (opendir $DIR, $top)
|
|
272
|
1 |
5 |
if (-f $item) { }
|
|
|
5 |
0 |
elsif (-d $item) { }
|
|
275
|
4 |
1 |
if $file eq '.' or $file eq '..'
|
|
315
|
0 |
3 |
unless $code and $max
|
|
353
|
0 |
3 |
if $rel_path
|
|
354
|
0 |
3 |
$rel_path ? :
|
|
358
|
0 |
3 |
unless (opendir $DIR, $path)
|
|
366
|
9 |
2 |
if (-f $item) { }
|
|
|
2 |
0 |
elsif (-d $item) { }
|
|
369
|
2 |
0 |
if $file eq '.' or $file eq '..'
|
|
370
|
0 |
0 |
$rel_path ? :
|
|
375
|
1 |
2 |
unless ($file)
|
|
376
|
0 |
1 |
$rel_path ? :
|
|
408
|
1 |
0 |
$self && ref $self ? :
|
|
409
|
0 |
1 |
unless $dir
|
|
411
|
1 |
0 |
unless $found
|
|
419
|
2 |
1 |
if -d $_
|
|
420
|
1 |
0 |
if (-f $_ and not /^\./u and not /\~$/u)
|
|
426
|
0 |
0 |
if -d $_ and /\.svn/u
|
|
427
|
0 |
0 |
if (-f $_ and not /^\./u and not /\~$/u)
|
|
428
|
0 |
0 |
if (/(\w+)\.(\w+)$/u)
|
|
435
|
0 |
0 |
if -d $_ and /\.\w+/u
|
|
436
|
0 |
0 |
if (-f $_ and not /^\./u and not /\~$/u)
|
|
437
|
0 |
0 |
if (/(\w+)\.(\w+)$/u)
|
|
438
|
0 |
0 |
if ($2 ~~ \@types)
|
|
468
|
0 |
0 |
$self && ref $self ? :
|
|
469
|
0 |
0 |
unless $dir
|
|
505
|
0 |
0 |
unless $self->{'path'}
|