| File: | blib/lib/App/FileSync/Scan.pm |
| Coverage: | 57.1% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 243 | 50 | T | F | unless defined $root and length $root and -d $root |
| 245 | 100 | T | F | defined $args->{'max_age'} ? : |
| 254 | 50 | T | F | unless list_dir($dir) |
| 256 | 50 | T | F | unless my(@stat) = &Time::HiRes::lstat($path) |
| 257 | 100 | T | F | if (-d _) { } |
| 50 | T | F | elsif ($name =~ /$TEMP_NAME/ and $now - $stat[9] >= $max_age) { } | |
| 261 | 0 | T | F | if unlink $path |