Branch Coverage

blib/lib/WWW/Dict/Leo/Org.pm
Criterion Covered Total %
branch 0 44 0.0


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'})