| line |
true |
false |
branch |
|
108
|
0 |
0 |
unless exists $$self{'disks_by_ip'}{$host} |
|
141
|
0 |
0 |
if ($host eq $ip) |
|
150
|
0 |
0 |
unless (ref $objref eq 'ARRAY') |
|
155
|
0 |
0 |
unless (ref $_ eq 'ARRAY') |
|
202
|
0 |
0 |
unless defined $args{'info'} |
|
265
|
0 |
0 |
unless $child->kill |
|
285
|
0 |
0 |
if (defined $$heap{'child'}) |
|
299
|
0 |
0 |
if /UUID=\"([^\"]+)/u |
|
300
|
0 |
0 |
if /LABEL=\"([^\"]+)/u |
|
301
|
0 |
0 |
if /^(.*?):/u |
|
303
|
0 |
0 |
unless defined $device |
|
305
|
0 |
0 |
unless defined $label or defined $uuid |
|
365
|
0 |
0 |
unless defined $opts{'info'} |
|
392
|
0 |
0 |
unless my $socket = 'IO::Socket::Multicast'->new('LocalPort', 32003, 'ReuseAddr', 1) |
|
400
|
0 |
0 |
unless $socket->mcast_add('230.1.2.3') |
|
426
|
0 |
0 |
if (defined $remote) { } |
|
431
|
0 |
0 |
if ($message =~ s/^diskd://u) { } |
|
433
|
0 |
0 |
unless $ip eq $info->our_ip |
|
455
|
0 |
0 |
unless $socket->mcast_send($message, '230.1.2.3:32003') |
|
489
|
0 |
0 |
unless defined $opts{'info'} |
|
510
|
0 |
0 |
if -e $$heap{'rendezvous'} |
|
526
|
0 |
0 |
unless $errno |
|
580
|
0 |
0 |
if (/^help\b/iu) { } |
|
|
0 |
0 |
elsif (/^list\b/iu) { } |
|
|
0 |
0 |
elsif (/^where\b/iu) { } |
|
|
0 |
0 |
elsif (/^localhost\b/iu) { } |
|
|
0 |
0 |
elsif (/^status\b/iu) { } |
|
|
0 |
0 |
elsif (/^debug\b/iu) { } |
|
598
|
0 |
0 |
unless defined $uuid |
|
599
|
0 |
0 |
unless defined $label |
|
600
|
0 |
0 |
unless defined $device |
|
609
|
0 |
0 |
if (/^where\b\s+(\S+)/iu) { } |
|
630
|
0 |
0 |
unless $errno |