Branch Coverage

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