| line |
true |
false |
branch |
|
18
|
3 |
1 |
unless my $self = (shift())->SUPER::new(@_) |
|
22
|
0 |
1 |
unless (defined $self->path) |
|
28
|
0 |
1 |
if (not defined $family) { } |
|
33
|
0 |
1 |
if ($family ne 'inet4' and $family ne 'inet6') |
|
51
|
4 |
0 |
if (-f "$path/netstat") |
|
56
|
0 |
4 |
unless (length $bin) |
|
65
|
4 |
0 |
if ($family eq 'inet4') { } |
|
79
|
0 |
4 |
if ($@) { } |
|
|
3 |
1 |
elsif ($?) { } |
|
94
|
1 |
0 |
if ($family eq 'inet4') { } |
|
123
|
6 |
2 |
if (defined $route and defined $gateway and defined $interface and defined $netmask) |
|
126
|
0 |
4 |
unless ($route =~ /^[0-9\.]+$/ and $gateway =~ /^[0-9\.]+$/ and $netmask =~ /^[0-9\.]+$/) |
|
136
|
0 |
4 |
if ($@) |
|
150
|
2 |
2 |
if ($route eq '0.0.0.0' and $netmask eq '0.0.0.0') { } |
|
160
|
2 |
2 |
if ($gateway eq '0.0.0.0') |
|
166
|
4 |
0 |
unless (exists $cache{$id}) |
|
193
|
7 |
1 |
if (defined $route and defined $gateway and defined $interface) |
|
195
|
1 |
6 |
unless ($route =~ m[^[0-9a-f:/]+$]i and $gateway =~ m[^[0-9a-f:/]+$]i) |
|
204
|
0 |
6 |
if ($@) |
|
218
|
0 |
6 |
if ($route eq '::/0' and $interface ne 'lo') |
|
224
|
6 |
0 |
if ($gateway eq '::') |
|
230
|
5 |
1 |
unless (exists $cache{$id}) |