| line |
true |
false |
branch |
|
58
|
0 |
0 |
unless ($term) |
|
71
|
0 |
0 |
if ($this->{'-Language'}) |
|
74
|
0 |
0 |
unless (grep {$this->{'-Language'} =~ /$_/;} @langs) |
|
79
|
0 |
0 |
if ($spec =~ /(..)2de/) { } |
|
|
0 |
0 |
elsif ($spec =~ /de2(..)/) { } |
|
125
|
0 |
0 |
if ($this->{'-Proxy'}) { } |
|
128
|
0 |
0 |
if ($proxy =~ /^(.+):(.+)\@(.*)$/) |
|
136
|
0 |
0 |
if ($pport) { } |
|
151
|
0 |
0 |
unless my $conn = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $ip, 'PeerPort', $port) |
|
169
|
0 |
0 |
if ($this->{'-Proxy'} and $proxy_user) |
|
186
|
0 |
0 |
if ($got_headers) { } |
|
|
0 |
0 |
elsif (/^\r?$/) { } |
|
|
0 |
0 |
elsif (not $_ =~ m[HTTP/1\.(0|1) 200 OK]i) { } |
|
193
|
0 |
0 |
if (m[HTTP/1\.(0|1) (\d+) ]i) |
|
196
|
0 |
0 |
if ($err == 407) { } |
|
210
|
0 |
0 |
unless close $conn |
|
236
|
0 |
0 |
if ($this->{'Maxsize'} < length $left) |
|
253
|
0 |
0 |
if (ref $word eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $word eq 'ARRAY') { } |
|
254
|
0 |
0 |
if ($word->{'content'}) { } |
|
|
0 |
0 |
elsif ($word->{'cc'}) { } |
|
297
|
0 |
0 |
if ($this->{'-Debug'}) |