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::SSL'->new('PeerAddr', $ip, 'PeerPort', $port, 'SSL_verify_mode', 0) |
170
|
0 |
0 |
if ($this->{'-Proxy'} and $proxy_user) |
187
|
0 |
0 |
if ($got_headers) { } |
|
0 |
0 |
elsif (/^\r?$/) { } |
|
0 |
0 |
elsif (not $_ =~ m[HTTP/1\.(0|1) 200 OK]i) { } |
194
|
0 |
0 |
if (m[HTTP/1\.(0|1) (\d+) ]i) |
197
|
0 |
0 |
if ($err == 407) { } |
211
|
0 |
0 |
unless close $conn |
237
|
0 |
0 |
if ($this->{'Maxsize'} < length $left) |
254
|
0 |
0 |
if (ref $word eq 'HASH') { } |
|
0 |
0 |
elsif (ref $word eq 'ARRAY') { } |
255
|
0 |
0 |
if ($word->{'content'}) { } |
|
0 |
0 |
elsif ($word->{'cc'}) { } |
298
|
0 |
0 |
if ($this->{'-Debug'}) |