| line |
true |
false |
branch |
|
90
|
1 |
1142 |
if ($self->prefix_length > $max) |
|
102
|
4 |
778 |
unless defined $p{'string'} |
|
106
|
250 |
82 |
inet_pton(10, $address) ? : |
|
|
446 |
332 |
$p{'version'} ? : |
|
111
|
45 |
733 |
if ($version == 6 and inet_pton(2, $address)) |
|
118
|
18 |
760 |
unless defined $integer |
|
135
|
35 |
32 |
ref $integer ? : |
|
160
|
3 |
13552 |
$self->prefix_length == 0 ? : |
|
177
|
250 |
12197 |
if ($base & $mask) != $base |
|
195
|
5 |
279 |
if $current > $last |
|
246
|
25 |
21 |
if ($thing->isa('Net::Works::Address')) { } |
|
|
21 |
0 |
elsif ($thing->isa('Net::Works::Network')) { } |
|
265
|
2 |
32 |
if $self->prefix_length == $self->bits |
|
287
|
2 |
3 |
shift() || any(sub {
/:/;
}
, $first, $last) ? : |
|
289
|
5 |
0 |
unless ref $first |
|
294
|
5 |
0 |
unless ref $last |
|
381
|
8 |
74 |
if $reserved_last <= $first |
|
382
|
8 |
66 |
if $last < $reserved_first |
|
384
|
54 |
12 |
if $first < $reserved_first |
|
387
|
5 |
61 |
if ($last <= $reserved_last) |
|
395
|
8 |
5 |
if $add_remaining |
|
424
|
309 |
17 |
$version == 6 ? : |
|
427
|
309 |
17 |
$version == 6 ? : |
|
455
|
30 |
0 |
if $self->isa('Net::Works::Network') |
|
|
0 |
30 |
unless blessed $self and blessed $other and eval {
do {
$other->isa('Net::Works::Network') if $self->isa('Net::Works::Network')
}
} |
|
462
|
0 |
30 |
shift() ? : |