| line | % | coverage | branch |
|---|
| 70 | 100 | T | F | if ($fn =~ /^(([-+:.0-9a-z]+)_([^_]+)_([-\w]+)\.([a-z0-9.]+))$/) { } |
| 100 | T | F | elsif ($fn =~ /^([-+:.,_0-9a-zA-Z~]+)$/) { } |
| 101 | 50 | T | F | if (/^(\S+) (\S+) (\S+)((?:\s+[0-9a-z-]+=\S+)*)$/) { } |
| 103 | 50 | T | F | unless defined $file |
| 113 | 50 | T | F | if (defined $self->{'files'}{$file->{'filename'}}) { } |
| 129 | 50 | T | F | unless my $dh = "IO::Dir"->new($dir) |
| 133 | 100 | T | F | unless -f $pathname |
| 156 | 50 | T | F | unless defined $file |
| 180 | 100 | T | F | if (not &$keep($file) or &$remove($file)) |
| 190 | 50 | T | F | if defined $fh |
| 196 | 50 | T | F | if (exists $file->{'attrs'}) |
| 204 | 50 | T | F | if defined $fh |