Branch Coverage

blib/lib/VM/Libvirt/CloneHelper.pm
Criterion Covered Total %
branch 0 76 0.0


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