| line |
true |
false |
branch |
|
57
|
18 |
15 |
if ($fn =~ /^(([-+:.0-9a-z]+)_([^_]+)_([-\w]+)\.([a-z0-9.]+))$/) { } |
|
|
14 |
1 |
elsif ($fn =~ /^([-+:.,_0-9a-zA-Z~]+)$/) { } |
|
88
|
27 |
0 |
if (/^(\S+) (\S+) (\S+)((?:\s+[0-9a-z-]+=\S+)*)$/) { } |
|
90
|
0 |
27 |
unless defined $file |
|
100
|
0 |
27 |
if (defined $self->{'files'}{$file->{'filename'}}) { } |
|
116
|
0 |
1 |
unless my $dh = 'IO::Dir'->new($dir) |
|
120
|
2 |
3 |
unless -f $pathname |
|
143
|
0 |
5 |
unless defined $file |
|
167
|
9 |
6 |
if (not &$keep($file) or &$remove($file)) |
|
177
|
0 |
7 |
if defined $fh |
|
183
|
26 |
0 |
if (exists $file->{'attrs'}) |
|
191
|
0 |
26 |
if defined $fh |