| blib/lib/Yars/Command/yars_generate_diskmap.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 20 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 0 | 5 | unless &GetOptions('port|p=i', \$default_port, 'protocol=s', \$protocol, 'help|h', sub { pod2usage({-'verbose', 2}); } , 'version', sub { say 'Yars version ', $VERSION // 'dev'; exit 1; } ) |
| 30 | 0 | 5 | unless my $digits = shift @ARGV |
| 35 | 0 | 14 | if /^\s*$/ |
| 38 | 1 | 13 | if $host =~ s/:(\d+)$// |
| 40 | 1 | 13 | if $port |
| 41 | 0 | 14 | unless $host and $disk |
| 51 | 464 | 576 | if $i == @all |
| 57 | 1 | 7 | $host =~ /:\d+$/ ? : |
| 64 | 67 | 973 | if $i++ % 14 == 0 |
| 66 | 1026 | 14 | unless $i == @{$servers{$host}{$root};} + 1 |