| line |
true |
false |
branch |
|
50
|
14 |
41 |
if (defined $_[1]) { } |
|
59
|
0 |
55 |
unless $ip = &ipv4_chkip($ip) |
|
61
|
30 |
25 |
if defined $msk |
|
64
|
30 |
25 |
if (defined $msk) { } |
|
65
|
26 |
4 |
if ($msk =~ /^\d{1,2}$/) { } |
|
|
4 |
0 |
elsif ($msk =~ /^$ip_rgx$/o) { } |
|
67
|
0 |
26 |
if $msk < 0 or $msk > 32 |
|
78
|
26 |
4 |
wantarray ? : |
|
86
|
3 |
3 |
if $b1 <= 127 |
|
87
|
1 |
2 |
if $b1 <= 191 |
|
95
|
0 |
68 |
unless $ip |
|
99
|
0 |
272 |
if $_ < 0 or $_ > 255 |
|
106
|
0 |
13 |
unless my $msk = ipv4_chkip($_[0]) |
|
122
|
0 |
6 |
if $cidr < 0 or $cidr > 32 |
|
136
|
2 |
13 |
unless (defined $cidr) |
|
146
|
0 |
15 |
wantarray ? : |
|
153
|
1 |
2 |
unless (defined $cidr) |
|
169
|
0 |
13 |
if (@_ >= 3) { } |
|
178
|
2 |
11 |
if $ip1 eq '255.255.255.255' || $ip1 eq '0.0.0.0' and not defined $cidr1 |
|
180
|
2 |
9 |
if $ip2 eq '255.255.255.255' || $ip2 eq '0.0.0.0' and not defined $cidr2 |
|
184
|
2 |
7 |
unless defined $cidr1 |
|
187
|
5 |
2 |
if (not defined $cidr2) { } |
|
|
1 |
1 |
elsif ($cidr2 >= $cidr1) { } |