| blib/lib/Yars/Command/yars_disk_scan.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 20 | 55.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 4 | unless &GetOptions('all|a', \$opt_all, 'help|h', sub { pod2usage({-'verbose', 2}); } , 'lock=s', \$opt_lock, 'version', sub { say 'Yars version ', $VERSION // 'dev'; exit 1; } ) |
| 36 | 3 | 1 | $opt_all ? : |
| 37 | 0 | 4 | unless @disks |
| 39 | 0 | 4 | if ($opt_lock) |
| 43 | 0 | 0 | unless (&Yars::Command::yars_disk_scan::flock($fh, 6)) |
| 50 | 0 | 4 | unless -d $root |
| 51 | 0 | 4 | unless -r $root |
| 59 | 0 | 6 | if ($md5 =~ /^tmp/) |
| 65 | 4 | 2 | if ($computed eq $md5) { } |
| 69 | 2 | 0 | unless $found_bad++ |