| blib/lib/App/SortCopies.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 0 | unless my $src = shift @ARGV |
| 27 | 0 | 0 | unless -d $src and -r $src |
| 30 | 0 | 0 | unless -d $dup_dir |
| 32 | 0 | 0 | unless opendir my $d, $src |
| 43 | 0 | 0 | unless (open my $potato, "<", $path) |
| 52 | 0 | 0 | if ($fried{$hash}) { } |
| 63 | 0 | 0 | unless move($path, $dest) |