| line |
true |
false |
branch |
|
203
|
40 |
6 |
if (ref $_[0] eq 'HASH') |
|
207
|
21 |
25 |
if (not defined $calling_sub or $calling_sub ne 'Filesys::DiskUsage::du') |
|
214
|
1 |
125 |
if exists $all{$_} |
|
216
|
39 |
0 |
if (defined $config{'exclude'} and -f $_ || -d $_) |
|
218
|
13 |
26 |
if $filename =~ /$config{'exclude'}/ |
|
220
|
2 |
110 |
if (-l $_) { } |
|
|
77 |
33 |
elsif (-f $_) { } |
|
|
33 |
0 |
elsif (-d $_) { } |
|
221
|
1 |
1 |
if ($config{'dereference'}) { } |
|
230
|
0 |
1 |
if defined $config{'symlink-size'} |
|
236
|
77 |
0 |
if (defined $stat[0]) |
|
237
|
0 |
77 |
if ($config{'blocks'}) { } |
|
246
|
24 |
2 |
if ($config{'recursive'} and $config{'max-depth'}) |
|
248
|
24 |
0 |
if (opendir my $dh, $_) { } |
|
|
0 |
0 |
elsif ($config{'show-warnings'}) { } |
|
272
|
1 |
45 |
if ($config{'make-hash'}) { } |
|
275
|
1 |
0 |
wantarray ? : |
|
278
|
1 |
44 |
if (wantarray) { } |
|
293
|
0 |
53 |
unless defined(my $size = shift()) |
|
295
|
49 |
4 |
unless $config->{'human'} |
|
296
|
1 |
3 |
$config->{'Human-readable'} ? : |
|
304
|
2 |
2 |
if ($config->{'truncate-readable'} > 0) |