| line |
true |
false |
branch |
|
112
|
0 |
0 |
if (defined $_[1]) |
|
139
|
0 |
0 |
if ($key eq 'mac_base') { } |
|
|
0 |
0 |
elsif ($key eq 'ipv4_base') { } |
|
|
0 |
0 |
elsif ($key eq 'to_clone') { } |
|
|
0 |
0 |
elsif ($key eq 'clone_name_base') { } |
|
142
|
0 |
0 |
unless ($args{'mac_base'} =~ /^[0-9aAbBcCdDeEfF][0-9aAbBcCdDeEfF]\:[0-9aAbBcCdDeEfF][0-9aAbBcCdDeEfF]\:[0-9aAbBcCdDeEfF][0-9aAbBcCdDeEfF]\:[0-9aAbBcCdDeEfF][0-9aAbBcCdDeEfF]\:[0-9aAbBcCdDeEfF][0-9aAbBcCdDeEfF]\:$/) |
|
152
|
0 |
0 |
unless ($args{'ipv4_base'} =~ /^[0-9]+\.[0-9]+\.[0-9]+\.$/) |
|
159
|
0 |
0 |
unless ($args{'to_clone'} =~ /^[A-Za-z0-9\-\.]+$/) |
|
166
|
0 |
0 |
unless ($args{'clone_name_base'} =~ /^[A-Za-z0-9\-\.]+$/) |
|
200
|
0 |
0 |
if (defined $name) { } |
|
201
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
219
|
0 |
0 |
unless system(@args) == 0 |
|
249
|
0 |
0 |
if (defined $name) { } |
|
250
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
261
|
0 |
0 |
unless system(@args) == 0 |
|
265
|
0 |
0 |
if (-f $image) |
|
267
|
0 |
0 |
unless unlink $image |
|
286
|
0 |
0 |
unless my $xml = read_file($self->{'net_head'}) |
|
287
|
0 |
0 |
unless my $xml_tail = read_file($self->{'net_tail'}) |
|
289
|
0 |
0 |
if ($self->{'windows_blank'}) |
|
319
|
0 |
0 |
if (-f $self->{'blank_domains'}) |
|
320
|
0 |
0 |
unless my $blank_raw = read_file($self->{'blank_domains'}) |
|
359
|
0 |
0 |
unless system(@args) == 0 |
|
364
|
0 |
0 |
unless write_file($tmp_file, $xml) |
|
368
|
0 |
0 |
unless system(@args) == 0 |
|
370
|
0 |
0 |
unless unlink $tmp_file |
|
393
|
0 |
0 |
unless (defined $name) |
|
399
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
459
|
0 |
0 |
if (defined $name) { } |
|
460
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
471
|
0 |
0 |
unless system(@args) == 0 |
|
493
|
0 |
0 |
if (defined $name) { } |
|
494
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
505
|
0 |
0 |
unless system(@args) == 0 |
|
528
|
0 |
0 |
if (defined $name) { } |
|
529
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
540
|
0 |
0 |
unless system(@args) == 0 |
|
554
|
0 |
0 |
if (defined $self->{'VMs'}) |