| line |
!l |
l&&!r |
l&&r |
condition |
|
40
|
0 |
1 |
18 |
$mask =~ /^\d+$/ and $mask <= $self->{'NBITS'} - 8 |
|
77
|
4 |
1 |
142 |
not vec($start, $sbit ^ 7, 1) and $sbit > 0 |
|
184
|
0 |
6 |
194 |
/^\d{1,3}$/ and not /^0\d{1,2}$/ |
|
|
6 |
0 |
194 |
/^\d{1,3}$/ and not /^0\d{1,2}$/ and $_ <= 255 |
|
196
|
10 |
2 |
0 |
$ip =~ /^:/ and not $ip =~ s/^::/:/ |
|
197
|
12 |
0 |
0 |
$ip =~ /:$/ and not $ip =~ s/::$/:/ |
|
208
|
9 |
0 |
0 |
$ipv4 and @nums > 6 |
|
322
|
1 |
1 |
2 |
$ip ge $find->[$start] and $ip lt $find->[$end] |
|
369
|
0 |
1 |
2 |
@_ and not $self->{'PACK'} |
|
400
|
2 |
1 |
3 |
@ips and $ips[0] lt $ip |
|
424
|
0 |
0 |
1 |
$ip ge $find->[$start] and $ip lt $find->[$end] |
| line |
l |
!l |
condition |
|
38
|
12 |
3 |
$self->_init($ip) or confess(q[Can't determine ip format]) |
|
173
|
12 |
4 |
$masks{$nbits} ||= [map({pack 'B*', substr('1' x $_ . '0' x $nbits, 0, $nbits);} 0 .. $nbits)] |
|
235
|
2 |
0 |
0 |
$self->_init($ip) or confess(q[Can't determine ip format]) |
|
249
|
2 |
0 |
$self->_init($ip_start) or confess(q[Can't determine ip format]) |
|
339
|
0 |
3 |
shift() || 20 |
|
443
|
3 |
1 |
shift() || '' |
|
444
|
3 |
1 |
$self->{'PREPPED'}{$ip} || [] |
|
446
|
0 |
4 |
$self->{'CACHE'}{$key} ||= {map({$_, 1;} @$aref)} |
|
451
|
1 |
3 |
shift() || 4 |
|
463
|
2 |
8 |
$cache{$key_str} ||= \@keys |
|
475
|
0 |
0 |
$self->{'PACK'}->(shift()) || (return) |