| line |
true |
false |
branch |
|
33
|
0 |
0 |
if $ssh->error
|
|
43
|
0 |
0 |
unless open $fdperlmod, "<", $INC{'StorageDisplay/Collect.pm'}
|
|
48
|
0 |
0 |
if $line =~ /^__END__\s*$/
|
|
70
|
0 |
0 |
if ($!)
|
|
73
|
0 |
0 |
if (scalar @ready) { }
|
|
75
|
0 |
0 |
if ($fd == $out) { }
|
|
77
|
0 |
0 |
if (defined $line) { }
|
|
86
|
0 |
0 |
if (print $in $line) { }
|
|
97
|
0 |
0 |
if ($res == -1)
|
|
100
|
0 |
0 |
if ($res)
|
|
101
|
0 |
0 |
unless ($in_closed)
|
|
111
|
0 |
0 |
unless ($out_closed)
|
|
132
|
0 |
2 |
unless &GetOptions("v|verbose+", \$verbose, "h|help", \$help, "man", \$man, "vm=s", $vmnames)
|
|
143
|
0 |
0 |
if ($verbose)
|
|
163
|
0 |
0 |
unless ($link =~ /([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s*$/)
|
|
169
|
0 |
0 |
if ($disk =~ /^[(](.*)[)]$/)
|
|
173
|
0 |
0 |
if (exists $self->{$vm}{$disk}) { }
|
|
199
|
0 |
0 |
unless exists $vmdisk->{'name'}
|
|
200
|
0 |
0 |
if $hostdisk->{'matched'}
|
|
201
|
0 |
0 |
if $vmdisk->{'matched'}
|
|
203
|
0 |
0 |
if ($hostdisk->{'size'} != $vmdisk->{'size'})
|
|
217
|
0 |
0 |
if $hostdisk->{'matched'}
|
|
220
|
0 |
0 |
if ($hostdisk->{'realdisk'} and check_disks($hostdisk, $vmdisk))
|
|
232
|
0 |
0 |
if (check_disks($hostdisk, $vmdisk_try))
|
|
233
|
0 |
0 |
if (defined $vmdisk)
|
|
241
|
0 |
0 |
if (defined $vmdisk)
|
|
255
|
0 |
0 |
unless open my $h, "<", $filename
|
|
256
|
0 |
0 |
$one_handled ? :
|
|
262
|
0 |
0 |
if ($state == 0)
|
|
265
|
0 |
0 |
if ($line =~ m[//\s*HEADER: MACHINE\s*$]) { }
|
|
|
0 |
0 |
elsif ($line =~ m[//\s*FOOTER: MACHINE\s*$]) { }
|
|
266
|
0 |
0 |
if ($state == 1) { }
|
|
267
|
0 |
0 |
unless $one_handled
|
|
273
|
0 |
0 |
if ($state < 2) { }
|
|
|
0 |
0 |
elsif ($state == 2) { }
|
|
278
|
0 |
0 |
if ($state == 3)
|
|
279
|
0 |
0 |
unless ($line =~ m[^\s*}\s*//\s*FOOTER: MACHINE\s*$])
|
|
285
|
0 |
0 |
if ($state < 1) { }
|
|
|
0 |
0 |
elsif ($state == 1) { }
|
|
291
|
0 |
0 |
if ($state == 2) { }
|
|
|
0 |
0 |
elsif ($state == 3) { }
|
|
293
|
0 |
0 |
if ($line =~ m[//\s*SOURCE\s+LINK\s*:\s*(.*)$])
|
|
297
|
0 |
0 |
if ($line =~ m[//\s*TARGET\s+LINK\s*:\s*(.*)$])
|
|
307
|
0 |
0 |
if ($header_size != 2)
|
|
310
|
0 |
0 |
if ($footer_size != 1)
|
|
316
|
1 |
1 |
if $help
|
|
317
|
1 |
0 |
if $man
|
|
333
|
0 |
0 |
if (exists $tlinks->{$hostname})
|
|
347
|
0 |
0 |
if ($one_handled)
|