| blib/lib/Data/Validate/IP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 20 | 80.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 29 | 1 | 0 | 1 | !$ENV{'DVI_NO_SOCKET'} && eval { do { require Socket; 'Socket'->import('AF_INET', 'AF_INET6', 'inet_pton'); length inet_pton(2, '1.1.1.1') == 4 if defined &Socket::inet_pton and not defined inet_pton(2, '016.17.184.1') and not defined inet_pton(10, '2067::1:') } } |
| 173 | 16 | 0 | 0 | &blessed($network) && $network->isa('NetAddr::IP') |
| line | l | !l | condition |
|---|---|---|---|
| 403 | 120 | 1112 | $ipv6_networks{$network}{'subnet_of'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 95 | 2 | 4 | 8 | _slow_is_ipv4($value) || _slow_is_ipv6($value) |
| 107 | 0 | 18 | 1786 | $_ < 0 or $_ > 255 |
| 173 | 4 | 2 | 20 | $network eq 'default' or $network =~ /^$ip_re$/ |
| 6 | 4 | 16 | $network eq 'default' or $network =~ /^$ip_re$/ or $network =~ m[^$ip_re/\d\d?$] |