blib/lib/Input/Validator/Constraint/Ip.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 14 | 85.7 |
line | true | false | branch |
---|---|---|---|
14 | 1 | 11 | unless @octets == 4 |
17 | 1 | 41 | unless /^\d+$/ and $_ >= 0 and $_ <= 255 |
20 | 4 | 6 | if ($args{'noprivate'}) |
21 | 1 | 3 | if $octets[0] == 10 |
22 | 1 | 2 | if $octets[0] == 127 |
23 | 1 | 0 | if $octets[0] == 172 and ($octets[1] >= 16 and $octets[1] <= 31) |
24 | 1 | 0 | if $octets[0] == 192 and $octets[1] == 168 |