| 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]\:$/) |
|
151
|
0 |
0 |
unless ($args{'ipv4_base'} =~ /^[0-9]+\.[0-9]+\.[0-9]+\.$/) |
|
157
|
0 |
0 |
unless ($args{'to_clone'} =~ /^[A-Za-z0-9\-\.]+$/) |
|
163
|
0 |
0 |
unless ($args{'clone_name_base'} =~ /^[A-Za-z0-9\-\.]+$/) |
|
197
|
0 |
0 |
if (defined $name) { } |
|
198
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
215
|
0 |
0 |
unless system(@args) == 0 |
|
245
|
0 |
0 |
if (defined $name) { } |
|
246
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
256
|
0 |
0 |
unless system(@args) == 0 |
|
260
|
0 |
0 |
if (-f $image) |
|
262
|
0 |
0 |
unless unlink $image |
|
281
|
0 |
0 |
unless my $xml = read_file($self->{'net_head'}) |
|
282
|
0 |
0 |
unless my $xml_tail = read_file($self->{'net_tail'}) |
|
284
|
0 |
0 |
if ($self->{'windows_blank'}) |
|
314
|
0 |
0 |
if (-f $self->{'blank_domains'}) |
|
315
|
0 |
0 |
unless my $blank_raw = read_file($self->{'blank_domains'}) |
|
354
|
0 |
0 |
unless system(@args) == 0 |
|
359
|
0 |
0 |
unless write_file($tmp_file, $xml) |
|
363
|
0 |
0 |
unless system(@args) == 0 |
|
365
|
0 |
0 |
unless unlink $tmp_file |
|
388
|
0 |
0 |
unless (defined $name) |
|
394
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
454
|
0 |
0 |
if (defined $name) { } |
|
455
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
465
|
0 |
0 |
unless system(@args) == 0 |
|
487
|
0 |
0 |
if (defined $name) { } |
|
488
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
498
|
0 |
0 |
unless system(@args) == 0 |
|
521
|
0 |
0 |
if (defined $name) { } |
|
522
|
0 |
0 |
unless (defined $VMs->{$name}) |
|
532
|
0 |
0 |
unless system(@args) == 0 |
|
546
|
0 |
0 |
if (defined $self->{'VMs'}) |