| line |
!l |
l&&!r |
l&&r |
condition |
|
40
|
0 |
1 |
20 |
$mask =~ /^\d+$/ and $mask <= $self->{'NBITS'} - 8 |
|
77
|
4 |
1 |
142 |
not vec($start, $sbit ^ 7, 1) and $sbit > 0 |
|
184
|
2 |
6 |
230 |
/^\d{1,3}$/ and not /^0\d{1,2}$/ |
|
|
8 |
0 |
230 |
/^\d{1,3}$/ and not /^0\d{1,2}$/ and $_ <= 255 |
|
196
|
14 |
11 |
0 |
$ip =~ /^:/ and not $ip =~ s/^::/:/ |
|
197
|
25 |
0 |
0 |
$ip =~ /:$/ and not $ip =~ s/::$/:/ |
|
208
|
13 |
9 |
0 |
$ipv4 and @nums > 6 |
|
323
|
1 |
1 |
2 |
$ip ge $find->[$start] and $ip lt $find->[$end] |
|
370
|
0 |
1 |
2 |
@_ and not $self->{'PACK'} |
|
401
|
2 |
1 |
3 |
@ips and $ips[0] lt $ip |
|
425
|
0 |
0 |
1 |
$ip ge $find->[$start] and $ip lt $find->[$end] |
| line |
l |
!l |
condition |
|
38
|
14 |
6 |
0 |
$self->_init($ip) or confess("Can't determine ip format") |
|
173
|
14 |
4 |
$masks{$nbits} ||= [map({pack "B*", substr(1 x $_ . 0 x $nbits, 0, $nbits);} 0 .. $nbits)] |
|
236
|
2 |
1 |
0 |
$self->_init($ip) or confess("Can't determine ip format") |
|
250
|
2 |
0 |
0 |
$self->_init($ip_start) or confess("Can't determine ip format") |
|
340
|
0 |
5 |
shift() || 20 |
|
444
|
3 |
1 |
shift() || '' |
|
445
|
3 |
1 |
$self->{'PREPPED'}{$ip} || [] |
|
447
|
0 |
4 |
$self->{'CACHE'}{$key} ||= {map({$_, 1;} @$aref)} |
|
452
|
1 |
3 |
shift() || 4 |
|
464
|
2 |
8 |
$cache{$key_str} ||= \@keys |
|
476
|
0 |
0 |
$self->{'PACK'}->(shift()) || (return) |