| line |
true |
false |
branch |
|
51
|
12 |
37 |
if (defined $_[1]) { } |
|
60
|
0 |
49 |
unless $ip = &ipv4_chkip($ip) |
|
62
|
24 |
25 |
if defined $msk |
|
65
|
24 |
25 |
if (defined $msk) { } |
|
66
|
20 |
4 |
if ($msk =~ /^\d{1,2}$/) { } |
|
|
4 |
0 |
elsif ($msk =~ /^$ip_rgx$/o) { } |
|
68
|
0 |
20 |
if $msk < 0 or $msk > 32 |
|
79
|
20 |
4 |
wantarray ? : |
|
87
|
3 |
3 |
if $b1 <= 127 |
|
88
|
1 |
2 |
if $b1 <= 191 |
|
96
|
0 |
62 |
unless $ip |
|
100
|
0 |
248 |
if $_ < 0 or $_ > 255 |
|
107
|
0 |
13 |
unless my $msk = ipv4_chkip($_[0]) |
|
123
|
0 |
6 |
if $cidr < 0 or $cidr > 32 |
|
137
|
2 |
11 |
unless ($cidr) |
|
147
|
0 |
13 |
wantarray ? : |
|
154
|
1 |
2 |
unless ($cidr) |
|
170
|
0 |
11 |
if (@_ >= 3) { } |
|
179
|
2 |
9 |
if $ip1 eq '255.255.255.255' or $ip1 eq '0.0.0.0' |
|
180
|
2 |
7 |
if $ip2 eq '255.255.255.255' or $ip2 eq '0.0.0.0' |
|
183
|
2 |
5 |
unless $cidr1 |
|
186
|
5 |
0 |
if (not defined $cidr2) { } |
|
|
0 |
0 |
elsif ($cidr2 > $cidr1) { } |