Branch Coverage

blib/lib/Net/DHCP/Windows/Netsh/Parse.pm
Criterion Covered Total %
branch 30 44 68.1


line true false branch
82 0 1 unless (defined $data)
110 5 52 if ($command eq 'set') { }
7 45 elsif ($command eq 'add') { }
37 8 elsif ($command =~ /^[Ss]cope$/) { }
118 5 0 if ($the_rest[0] eq 'optionvalue' and $the_rest[1] =~ /^[0-9]+$/ and defined $the_rest[3])
138 7 0 if ($the_rest[0] eq 'scope' and defined $the_rest[1] and defined $the_rest[2])
151 16 21 if ($the_rest[1] eq 'set' and $the_rest[2] eq 'optionvalue') { }
7 28 elsif ($the_rest[1] eq 'Add' and $the_rest[2] eq 'iprange') { }
262 0 28 if (not defined $hostname) { }
0 28 elsif (not defined $scope) { }
0 28 elsif (not defined $option) { }
0 28 elsif (not defined $values->[0]) { }
274 1 27 if ($option eq '51' and $values->[0] =~ /^[Uu]/)
283 1 26 unless (defined $self->{'servers'}{$hostname})
287 1 26 unless (defined $self->{'servers'}{$hostname}{$scope})
291 27 0 unless (defined $self->{'servers'}{$hostname}{$scope}{$option})
328 0 7 if (not defined $hostname) { }
0 7 elsif (not defined $scope) { }
0 7 elsif (not defined $mask) { }
0 7 elsif (not defined $desc) { }
340 0 7 unless (defined $self->{'servers'}{$hostname})
344 7 0 unless (defined $self->{'servers'}{$hostname}{$scope})