| line |
true |
false |
branch |
|
108
|
0 |
0 |
if (defined $_[1]) |
|
134
|
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') { } |
|
137
|
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]\:$/) |
|
147
|
0 |
0 |
unless ($args{'ipv4_base'} =~ /^[0-9]+\.[0-9]+\.[0-9]+\.$/) |
|
154
|
0 |
0 |
unless ($args{'to_clone'} =~ /^[A-Za-z0-9\-\.]+$/) |
|
161
|
0 |
0 |
unless ($args{'clone_name_base'} =~ /^[A-Za-z0-9\-\.]+$/) |
|
191
|
0 |
0 |
unless system(@args) == 0 |
|
220
|
0 |
0 |
unless system(@args) == 0 |
|
224
|
0 |
0 |
if (-f $image) |
|
226
|
0 |
0 |
unless unlink $image |
|
245
|
0 |
0 |
unless my $xml = read_file($self->{'net_head'}) |
|
246
|
0 |
0 |
unless my $xml_tail = read_file($self->{'net_tail'}) |
|
248
|
0 |
0 |
if ($self->{'windows_blank'}) |
|
278
|
0 |
0 |
if (-f $self->{'blank_domains'}) |
|
279
|
0 |
0 |
unless my $blank_raw = read_file($self->{'blank_domains'}) |
|
318
|
0 |
0 |
unless system(@args) == 0 |
|
323
|
0 |
0 |
unless write_file($tmp_file, $xml) |
|
327
|
0 |
0 |
unless system(@args) == 0 |
|
329
|
0 |
0 |
unless unlink $tmp_file |
|
351
|
0 |
0 |
unless system(@args) == 0 |
|
372
|
0 |
0 |
unless system(@args) == 0 |
|
394
|
0 |
0 |
unless system(@args) == 0 |