| line |
true |
false |
branch |
|
30
|
0 |
0 |
if (UNIVERSAL::isa($dirs[0], 'HASH')) { } |
|
33
|
0 |
0 |
if (defined $strat and $strat ne 'by_age') |
|
58
|
2 |
0 |
if (UNIVERSAL::isa($dirs[0], 'HASH')) { } |
|
|
0 |
0 |
elsif ($dirs[0] =~ /^-?\d+$/) { } |
|
61
|
0 |
2 |
if ($$ctl{'strategy'}) |
|
62
|
0 |
0 |
if ($$ctl{'strategy'} eq 'by_age') { } |
|
79
|
0 |
2 |
if (not $$ctl{'keep'}) { } |
|
|
0 |
2 |
elsif ($$ctl{'keep'} < 0) { } |
|
91
|
0 |
2 |
unless defined $$ctl{'verbose'} |
|
92
|
0 |
2 |
if $$ctl{'debug'} |
|
94
|
0 |
2 |
if ($$ctl{'include'}) |
|
95
|
0 |
0 |
if (not ref $$ctl{'include'}) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($$ctl{'include'}, 'CODE')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($$ctl{'include'}, 'Regexp')) { } |
|
112
|
0 |
2 |
if $$ctl{'verbose'} > 1 |
|
115
|
0 |
2 |
unless (-d $dir) |
|
116
|
0 |
0 |
-e _ ? : |
|
121
|
0 |
2 |
unless (-w _) |
|
126
|
0 |
2 |
unless (-r _) |
|
131
|
0 |
2 |
unless (-x _) |
|
138
|
0 |
2 |
if ($error) |
|
139
|
0 |
0 |
if ($$ctl{'test'}) { } |