Branch Coverage

blib/lib/Net/Address/Ethernet.pm
Criterion Covered Total %
branch 30 62 48.3


line true false branch
103 0 8 unless ($rh->{'iActive'})
109 0 8 unless (exists $rh->{'sIP'})
114 0 8 unless (defined $rh->{'sIP'})
119 0 8 if ($rh->{'sIP'} eq '')
124 4 4 if ($rh->{'sIP'} eq '127.0.0.1')
129 0 4 unless (exists $rh->{'sEthernet'})
134 0 4 unless (defined $rh->{'sEthernet'})
139 0 4 if ($rh->{'sEthernet'} eq '')
148 1 3 wantarray ? :
192 3 3 if (not $Net::Address::Ethernet::DEBUG and @ahInfo)
198 3 0 unless (defined $rh and scalar keys %$rh)
201 3 0 if ($@ =~ /not found/)
205 0 3 if (not -f $sCmdIp) { }
219 6 18 if ($sLine =~ /\d:\s(.+?):.+,UP/)
222 3 3 if %hash
230 3 21 if ($sLine =~ /ether\s+(([0-9a-f]{2}:){5}[0-9a-f]{2})/)
235 6 18 if ($sLine =~ /inet\s+((\d+\.){3}\d+)/)
243 3 0 if %hash
256 0 0 if ($key =~ /\A\{.+}\z/)
266 0 0 if ($sEther eq '')
272 0 0 if (defined $rh->{$key}{'status'} and $rh->{$key}{'status'} =~ /\A(1|UP)\z/i)
289 0 0 if $^O eq 'MSWIn32'
297 0 0 unless -x $sARP
302 0 0 if $sHost eq ''
311 0 0 if ($sLine =~ /\(($Net::Address::Ethernet::RE{'net'}{'IPv4'})\)\s+AT\s+($Net::Address::Ethernet::RE{'net'}{'MAC'})\b/i)
316 0 0 if $sIPFound eq $sIP
319 0 0 if ($sLine =~ /($Net::Address::Ethernet::RE{'net'}{'IPv4'})\s+ETHER\s+($Net::Address::Ethernet::RE{'net'}{'MAC'})\b/i)
322 0 0 if $1 eq $sIP
357 3 10 unless is_address($s)
363 21 39 length $_ < 2 ? :
370 43 0 unless $Net::Address::Ethernet::DEBUG