| line |
true |
false |
branch |
|
23
|
56 |
55 |
if ($arg_ref->{'lower'} and $arg_ref->{'upper'}) { } |
|
|
55 |
0 |
elsif ($arg_ref->{'ip'}) { } |
|
26
|
0 |
56 |
if ($arg_ref->{'lower'} > $arg_ref->{'upper'}) |
|
34
|
1 |
54 |
if ($arg_ref->{'netmask'}) { } |
|
|
4 |
50 |
elsif ($arg_ref->{'ip'} =~ m[(.*?)/(\d+)]) { } |
|
|
49 |
1 |
elsif ($arg_ref->{'cidr'}) { } |
|
40
|
1 |
0 |
if ($was_ipv4) |
|
50
|
2 |
2 |
$was_ipv4 ? : |
|
64
|
49 |
0 |
$was_ipv4 ? : |
|
94
|
86 |
1 |
if ($base->is_ipv4) |
|
100
|
86 |
1 |
if ($base->is_ipv4) |
|
115
|
0 |
18 |
if $self->{'upper'} == $self->{'lower'} |
|
145
|
0 |
0 |
if $swapped |
|
146
|
0 |
0 |
unless ref $self eq ref $rhs |
|
158
|
16 |
2 |
if ($inner->{'upper'} < $self->{'upper'}) |