| line |
true |
false |
branch |
|
23
|
112 |
110 |
if ($arg_ref->{'lower'} and $arg_ref->{'upper'}) { } |
|
|
110 |
0 |
elsif ($arg_ref->{'ip'}) { } |
|
26
|
0 |
112 |
if ($arg_ref->{'lower'} > $arg_ref->{'upper'}) |
|
34
|
2 |
108 |
if ($arg_ref->{'netmask'}) { } |
|
|
8 |
100 |
elsif ($arg_ref->{'ip'} =~ m[(.*?)/(\d+)]u) { } |
|
|
98 |
2 |
elsif ($arg_ref->{'cidr'}) { } |
|
40
|
2 |
0 |
if ($was_ipv4) |
|
50
|
4 |
4 |
$was_ipv4 ? : |
|
64
|
98 |
0 |
$was_ipv4 ? : |
|
94
|
172 |
2 |
if ($base->is_ipv4) |
|
100
|
172 |
2 |
if ($base->is_ipv4) |
|
115
|
0 |
36 |
if $self->{'upper'} == $self->{'lower'} |
|
145
|
0 |
0 |
if $swapped |
|
146
|
0 |
0 |
unless ref $self eq ref $rhs |
|
158
|
32 |
4 |
if ($inner->{'upper'} < $self->{'upper'}) |