| line |
true |
false |
branch |
|
98
|
0 |
0 |
unless &GetOptions('parents', \$opts{'parents'}, 'cidr', \$opts{'cidr'}, 'overlaps', \$overlaps, 'filename=s', \$filename, 'help', \$help) |
|
108
|
0 |
0 |
if ($help) |
|
115
|
0 |
0 |
if $filename |
|
116
|
0 |
0 |
unless (@ARGV) |
|
122
|
0 |
0 |
if (-f $arg) { } |
|
|
0 |
0 |
elsif ($ARGV[0] and $ARGV[0] eq '-' and $ARGV[1]) { } |
|
124
|
0 |
0 |
unless $fh |
|
138
|
0 |
0 |
if ($overlaps) |
|
149
|
3 |
0 |
if @imports |
|
167
|
3 |
1 |
ref $plugins[0] eq 'ARRAY' ? : |
|
174
|
2 |
35 |
unless ($plugin =~ /::/) |
|
178
|
0 |
37 |
if $@ |
|
180
|
0 |
37 |
unless $p |
|
181
|
0 |
37 |
unless ($p->does('Net::IP::Identifier_Role')) |
|
190
|
0 |
4 |
if (@$plugins and not $$self{'entities'} && @{$$self{'entities'};}) |
|
201
|
2 |
15 |
if (@_ > 1) |
|
207
|
2 |
15 |
unless ($$self{'entities'} and @{$$self{'entities'};}) |
|
211
|
1 |
1 |
if ($imports) { } |
|
221
|
0 |
2 |
unless ($$self{'entities'} and @{$$self{'entities'};}) |
|
228
|
15 |
2 |
wantarray ? : |
|
235
|
0 |
58 |
unless $version |
|
237
|
15 |
43 |
unless ($$self{'ip_tree'}) |
|
245
|
141 |
1123 |
unless (defined $ip->prefixlen) |
|
249
|
124 |
1377 |
$ip->version == 6 ? : |
|
270
|
0 |
47 |
unless (defined $ip->prefixlen) |
|
277
|
26 |
2109 |
if $_[0]->payload |
|
282
|
21 |
26 |
unless (@return) |
|
286
|
26 |
0 |
unless ($self->parents) |
|
292
|
1 |
25 |
if (wantarray) |
|
294
|
1 |
0 |
$self->cidr ? : |
|
298
|
9 |
16 |
if ($self->cidr) |
|
313
|
35 |
35 |
if $_->can('version') |
|
|
3 |
32 |
if (grep {$_->version eq '6' if $_->can('version');} @parts) |
|
316
|
0 |
35 |
unless defined $joiner |
|
331
|
10 |
1 |
if ($node->payload and $node->zero || $node->one) |
|
335
|
26 |
112 |
if ($_[0]->payload) |
|
342
|
10 |
1169 |
if @overlap > 1 |
|
349
|
11 |
0 |
wantarray ? : |