| line |
true |
false |
branch |
|
137
|
0 |
1 |
unless -e $self->path
|
|
162
|
0 |
1 |
unless my $dir = shift()
|
|
163
|
0 |
1 |
unless my $dh = 'DirHandle'->new($dir)
|
|
198
|
3 |
0 |
unless $path
|
|
236
|
0 |
1 |
unless $code
|
|
264
|
0 |
2 |
unless (opendir $DIR, $top)
|
|
271
|
1 |
5 |
if (-f $item) { }
|
|
|
5 |
0 |
elsif (-d $item) { }
|
|
274
|
4 |
1 |
if $file eq '.' or $file eq '..'
|
|
314
|
0 |
3 |
unless $code and $max
|
|
352
|
0 |
3 |
if $rel_path
|
|
353
|
0 |
3 |
$rel_path ? :
|
|
357
|
0 |
3 |
unless (opendir $DIR, $path)
|
|
365
|
9 |
2 |
if (-f $item) { }
|
|
|
2 |
0 |
elsif (-d $item) { }
|
|
368
|
2 |
0 |
if $file eq '.' or $file eq '..'
|
|
369
|
0 |
0 |
$rel_path ? :
|
|
374
|
1 |
2 |
unless ($file)
|
|
375
|
0 |
1 |
$rel_path ? :
|
|
407
|
1 |
0 |
$self && ref $self ? :
|
|
408
|
0 |
1 |
unless $dir
|
|
410
|
1 |
0 |
unless $found
|
|
418
|
2 |
1 |
if -d $_
|
|
419
|
1 |
0 |
if (-f $_ and not /^\./u and not /\~$/u)
|
|
425
|
0 |
0 |
if -d $_ and /\.svn/u
|
|
426
|
0 |
0 |
if (-f $_ and not /^\./u and not /\~$/u)
|
|
427
|
0 |
0 |
if (/(\w+)\.(\w+)$/u)
|
|
434
|
0 |
0 |
if -d $_ and /\.\w+/u
|
|
435
|
0 |
0 |
if (-f $_ and not /^\./u and not /\~$/u)
|
|
436
|
0 |
0 |
if (/(\w+)\.(\w+)$/u)
|
|
437
|
0 |
0 |
if ($2 ~~ \@types)
|
|
467
|
0 |
0 |
$self && ref $self ? :
|
|
468
|
0 |
0 |
unless $dir
|
|
504
|
0 |
0 |
unless $self->{'path'}
|