line | % | coverage | branch |
57 | 100 | T | F | if ($fn =~ /^(([-+:.0-9a-z]+)_([^_]+)_([-\w]+)\.([a-z0-9.]+))$/) { } |
| 100 | T | F | elsif ($fn =~ /^([-+:.,_0-9a-zA-Z~]+)$/) { } |
88 | 50 | T | F | if (/^(\S+) (\S+) (\S+)((?:\s+[0-9a-z-]+=\S+)*)$/) { } |
90 | 50 | T | F | unless defined $file |
100 | 50 | T | F | if (defined $self->{'files'}{$file->{'filename'}}) { } |
116 | 50 | T | F | unless my $dh = "IO::Dir"->new($dir) |
120 | 100 | T | F | unless -f $pathname |
143 | 50 | T | F | unless defined $file |
167 | 100 | T | F | if (not &$keep($file) or &$remove($file)) |
177 | 50 | T | F | if defined $fh |
183 | 50 | T | F | if (exists $file->{'attrs'}) |
191 | 50 | T | F | if defined $fh |