| line |
true |
false |
branch |
|
20
|
0 |
207 |
unless @nums == 4 |
|
22
|
1 |
824 |
unless /\A$DEC\z/ and not /\A0[1-9]+/ |
|
36
|
0 |
2 |
unless my $ip = shift() |
|
39
|
1 |
1 |
unless $bits =~ /\A1*0*\z/ |
|
47
|
5 |
47 |
unless $hi eq ($lo | $hi) |
|
48
|
11 |
36 |
unless $bits =~ /\A(1*)0*\z/ |
|
54
|
113 |
93 |
if ($ip =~ m[\A($IP)/((?:3[0-2]|[12]?[0-9])|$IP)\z]) { } |
|
|
46 |
47 |
elsif ($ip =~ /\A($IP)-($IP)\z/) { } |
|
|
5 |
42 |
elsif ($ip =~ /\A$IP\z/) { } |
|
56
|
1 |
112 |
unless my $addr = _pack($1) |
|
58
|
110 |
2 |
$mask =~ /\A[0-9]+\z/ ? : |
|
|
1 |
111 |
unless my $bits = $mask =~ /\A[0-9]+\z/ ? _width2bits($mask, 32) : _ip2bits(_pack($mask)) |
|
65
|
0 |
46 |
unless my $lo = _pack($1) |
|
66
|
0 |
46 |
unless my $hi = _pack($2) |
|
79
|
44 |
157 |
unless my(@r) = $self->_encode($ip) |
|
89
|
3 |
54 |
if ($generic < 1 and $lo eq $hi) { } |
|
|
36 |
18 |
elsif ($generic < 2 and defined(my $w = _is_cidr($lo, $hi))) { } |