| 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 |