| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless $_[0]
|
|
32
|
0 |
0 |
if (ref $_[0]) { }
|
|
33
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
34
|
0 |
0 |
if $_[0]{'URI'}
|
|
35
|
0 |
0 |
if $_[0]{'IP'}
|
|
55
|
0 |
0 |
if ($args =~ m[^(?:ftps?|https?|gopher|news|nntp|telnet|wais)\://([^/\:]+)]) { }
|
|
|
0 |
0 |
elsif ($args =~ /^(?:mailto)\:(.+)/) { }
|
|
|
0 |
0 |
elsif ($args =~ /\@([^\@]+)$/) { }
|
|
59
|
0 |
0 |
unless $args =~ m[^([^/\:]+)]
|
|
63
|
0 |
0 |
if ($args =~ /\@([^\@]+)$/)
|
|
76
|
0 |
0 |
$args =~ /^\d{1.3}\.\d{1.3}\.\d{1.3}\.\d{1.3}$/ ? :
|
|
97
|
0 |
0 |
$is_ip ? :
|
|
104
|
0 |
0 |
if (my $error = $@)
|
|
109
|
0 |
0 |
unless @_
|
|
115
|
0 |
0 |
if (my $target = $self->check_rbl($_))
|