| line |
true |
false |
branch |
|
99
|
0 |
0 |
unless &GetOptions('parents', \$opts{'parents'}, 'cidr', \$opts{'cidr'}, 'overlaps', \$overlaps, 'filename=s', \$filename, 'help', \$help) |
|
109
|
0 |
0 |
if ($help) |
|
116
|
0 |
0 |
if $filename |
|
117
|
0 |
0 |
unless (@ARGV) |
|
123
|
0 |
0 |
if (-f $arg) { } |
|
|
0 |
0 |
elsif ($ARGV[0] and $ARGV[0] eq '-' and $ARGV[1]) { } |
|
125
|
0 |
0 |
unless $fh |
|
139
|
0 |
0 |
if ($overlaps) |
|
150
|
3 |
0 |
if @imports |
|
168
|
3 |
1 |
ref $plugins[0] eq 'ARRAY' ? : |
|
175
|
2 |
35 |
unless ($plugin =~ /::/) |
|
179
|
0 |
37 |
if $@ |
|
181
|
0 |
37 |
unless $p |
|
182
|
0 |
37 |
unless ($p->does('Net::IP::Identifier_Role')) |
|
191
|
0 |
4 |
if (@$plugins and not $$self{'entities'} && @{$$self{'entities'};}) |
|
202
|
2 |
15 |
if (@_ > 1) |
|
208
|
2 |
15 |
unless ($$self{'entities'} and @{$$self{'entities'};}) |
|
212
|
1 |
1 |
if ($imports) { } |
|
222
|
0 |
2 |
unless ($$self{'entities'} and @{$$self{'entities'};}) |
|
229
|
15 |
2 |
wantarray ? : |
|
236
|
0 |
57 |
unless $version |
|
238
|
15 |
42 |
unless ($$self{'ip_tree'}) |
|
246
|
142 |
1126 |
unless (defined $ip->prefixlen) |
|
250
|
124 |
1383 |
$ip->version == 6 ? : |
|
271
|
0 |
46 |
unless (defined $ip->prefixlen) |
|
278
|
25 |
2077 |
if $_[0]->payload |
|
283
|
21 |
25 |
unless (@return) |
|
287
|
25 |
0 |
unless ($self->parents) |
|
293
|
1 |
24 |
if (wantarray) |
|
295
|
1 |
0 |
$self->cidr ? : |
|
299
|
8 |
16 |
if ($self->cidr) |
|
320
|
10 |
1 |
if ($node->payload and $node->zero || $node->one) |
|
324
|
26 |
112 |
if ($_[0]->payload) |
|
331
|
10 |
1169 |
if @overlap > 1 |
|
338
|
11 |
0 |
wantarray ? : |