| line |
true |
false |
branch |
|
18
|
0 |
35 |
unless my $class = shift() |
|
25
|
30 |
5 |
$IS_WIN ? : |
|
35
|
7 |
4 |
unless (ref $self) |
|
40
|
1 |
3 |
if $path |
|
49
|
12 |
12 |
if (not ref $self) { } |
|
55
|
20 |
4 |
if ($IS_WIN) { } |
|
64
|
0 |
4 |
if ($if_info->{$key} eq '127.0.0.1') |
|
74
|
0 |
0 |
if $lo_found |
|
83
|
12 |
12 |
unless (ref $self) |
|
93
|
12 |
12 |
unless (ref $self) |
|
111
|
10 |
0 |
if ($^O =~ /(?: linux|openbsd|freebsd|netbsd|solaris|darwin )/imsx) { } |
|
|
0 |
0 |
elsif ($^O eq 'aix') { } |
|
|
0 |
0 |
elsif ($^O eq 'irix') { } |
|
|
0 |
0 |
elsif ($^O eq 'dec_osf') { } |
|
112
|
0 |
10 |
-f '/sbin/ifconfig' ? : |
|
130
|
50 |
8 |
$IS_WIN ? : |
|
216
|
48 |
16 |
if ($line =~ /^\s+/x and $interface) { } |
|
|
16 |
0 |
elsif (($interface) = $line =~ /^(?:\d+\:\s){0,1}(\w+(?:\d)?(?:\.\d+)?(?:\:\d+)?)/x) { } |
|
233
|
16 |
0 |
if (my($ip) = $if_info{$key} =~ /inet\s(?:addr\:)?(\d+(?:\.\d+){3})/x) { } |
|
281
|
60 |
1476 |
if ($line =~ /Windows/msx) { } |
|
|
474 |
1002 |
elsif ($line =~ /^\s$/msx) { } |
|
|
84 |
918 |
elsif ($line =~ /$regexes{'address'}/ and defined $interface) { } |
|
|
96 |
822 |
elsif ($line =~ /$regexes{'adapter'}/) { } |