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'}) |