| line |
true |
false |
branch |
|
108
|
0 |
0 |
wantarray ? : |
|
|
0 |
7 |
if $r[0] != &DNS::BL::DNSBL_OK |
|
114
|
0 |
7 |
if (not exists $args{'within'} || exists $args{'matching'}) { } |
|
|
0 |
7 |
elsif (exists $args{'within'} and not $ip = 'NetAddr::IP'->new($args{'within'})) { } |
|
|
0 |
12 |
elsif (exists $args{'matching'} and not $ip = 'NetAddr::IP'->new($args{'matching'})) { } |
|
117
|
0 |
0 |
wantarray ? : |
|
125
|
0 |
0 |
wantarray ? : |
|
133
|
0 |
0 |
wantarray ? : |
|
141
|
5 |
2 |
if (exists $args{'within'}) { } |
|
150
|
7 |
0 |
wantarray ? : |
|
|
7 |
0 |
if $r[0] != &DNS::BL::DNSBL_OK |
|
159
|
0 |
0 |
if ($args{'to'}) { } |
|
163
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
unless $fh |
|
173
|
0 |
0 |
if (not defined $args{'as'} or $args{'as'} eq 'plain') { } |
|
|
0 |
0 |
elsif ($args{'as'} eq 'comma') { } |
|
|
0 |
0 |
elsif ($args{'as'} eq 'djdnsbl') { } |
|
|
0 |
0 |
elsif ($args{'as'} eq 'internal') { } |
|
196
|
0 |
0 |
wantarray ? : |
|
202
|
0 |
0 |
wantarray ? : |
|
207
|
0 |
0 |
wantarray ? : |