| line |
true |
false |
branch |
|
17
|
37 |
205 |
unless @nums == 4 |
|
19
|
1 |
816 |
unless /^\d{1,3}$/ and not /^0\d{1,2}$/ and $_ < 256 |
|
33
|
0 |
2 |
unless my $ip = shift() |
|
36
|
1 |
1 |
unless $bits =~ /^1*0*$/ |
|
44
|
5 |
47 |
unless $hi eq ($lo | $hi) |
|
45
|
11 |
36 |
unless $bits =~ /^(1*)0*$/ |
|
51
|
135 |
69 |
if ($ip =~ m[^(.+?)/(.+)$]) { } |
|
|
59 |
10 |
elsif ($ip =~ /^(.+?)-(.+)$/) { } |
|
53
|
25 |
110 |
unless my $addr = _pack($1) |
|
55
|
108 |
2 |
$mask =~ /^\d+$/ ? : |
|
|
1 |
109 |
unless my $bits = $mask =~ /^\d+$/ ? _width2bits($mask, 32) : _ip2bits(_pack($mask)) |
|
62
|
13 |
46 |
unless my $lo = _pack($1) |
|
63
|
0 |
46 |
unless my $hi = _pack($2) |
|
73
|
39 |
155 |
unless my(@r) = $self->_encode($ip) |
|
83
|
3 |
54 |
if ($generic < 1 and $lo eq $hi) { } |
|
|
36 |
18 |
elsif ($generic < 2 and defined(my $w = _is_cidr($lo, $hi))) { } |