blib/lib/Net/IPAddress/Util.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 28 | 69 | 40.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
58 | 0 | 0 | 0 | not grep({$_;} @$old[0..9]) and $old->[10] == 255 |
0 | 0 | 0 | not grep({$_;} @$old[0..9]) and $old->[10] == 255 and $old->[11] == 255 | |
91 | 272 | 306 | 475 | ref $address eq 'ARRAY' and @$address == 16 |
272 | 0 | 306 | ref $address eq 'ARRAY' and @$address == 4 | |
25 | 0 | 247 | ref $address and eval { do { $address->isa('Net::IPAddress::Util') } } | |
10 | 0 | 0 | $REPAIR_V3_FORMAT and $address =~ /$broken_fourish/ | |
9 | 0 | 1 | $PROMOTE_N32 and $address =~ /$numberish/ | |
9 | 0 | 1 | $PROMOTE_N32 and $address =~ /$numberish/ and $address >= 0 | |
0 | 0 | 1 | $PROMOTE_N32 and $address =~ /$numberish/ and $address >= 0 and $address <= 4294967295 | |
0 | 8 | 0 | $address =~ /$sixish/ and scalar grep({/::/o;} split(/[[:alnum:]]+/, $address, 0)) == 1 || scalar grep({/[[:alnum:]]+/;} split(/:/, $address, 0)) == 8 | |
201 | 2 | 0 | 774 | $octets[8] == 255 && $octets[9] == 255 && $octets[10] == 0 && $octets[11] == 0 && !grep({$_;} @octets[0..7]) |
555 | 0 | 0 | 0 | defined $_ and $_ >= 0 |
0 | 0 | 0 | defined $_ and $_ >= 0 and $_ <= 255 |
line | l | !l | condition |
---|---|---|---|
185 | 0 | 0 | ref $address || 'bare scalar' |
256 | 47 | 89 | $x ||= '0' |
528 | 0 | 0 | $_ // [] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
85 | 0 | 1053 | 0 | ref $self || $self |
91 | 7 | 1 | 0 | scalar grep({/::/o;} split(/[[:alnum:]]+/, $address, 0)) == 1 || scalar grep({/[[:alnum:]]+/;} split(/:/, $address, 0)) == 8 |
280 | 216 | 0 | 0 | eval { do { $rhs->{'address'} } } || pack('N4', (0, 0, 0, $rhs)) |
283 | 0 | 183 | 33 | $lhs->[0] <=> $rhs->[0] || $lhs->[1] <=> $rhs->[1] || $lhs->[2] <=> $rhs->[2] || $lhs->[3] <=> $rhs->[3] |
297 | 0 | 16 | 0 | eval { do { $rhs->{'address'} } } || pack('N4', (0, 0, 0, $rhs)) |
322 | 0 | 8 | 0 | eval { do { $rhs->{'address'} } } || pack('N4', (0, 0, 0, $rhs)) |
384 | 141 | 0 | 0 | eval { do { $rhs->{'address'} } } || pack('N4', (0, 0, 0, $rhs)) |
402 | 141 | 0 | 0 | eval { do { $rhs->{'address'} } } || pack('N4', (0, 0, 0, $rhs)) |