| line |
true |
false |
branch |
|
117
|
0 |
0 |
if ($_[0] and ref $_[0] || $_[0] =~ /^Bio::/) |
|
125
|
0 |
0 |
unless my($host, $port, $path, $user, $pass) = _http_parse_url($dest) |
|
129
|
0 |
0 |
if ($self) |
|
130
|
0 |
0 |
unless ($proxy) |
|
133
|
0 |
0 |
unless ($auth_user) |
|
137
|
0 |
0 |
if $proxy |
|
140
|
0 |
0 |
unless my $socket = _http_connect($host, $port) |
|
148
|
0 |
0 |
if ($auth_user and $auth_pass) |
|
162
|
0 |
0 |
unless my($stat_code, $stat_msg) = $status_line =~ m[^HTTP/1\.[01] (\d+) (.+)] |
|
166
|
0 |
0 |
if ($stat_code == 302 or $stat_code == 301) { } |
|
|
0 |
0 |
elsif ($stat_code == 401) { } |
|
|
0 |
0 |
elsif ($stat_code != 200) { } |
|
168
|
0 |
0 |
unless my $location = $headers{'Location'} |
|
174
|
0 |
0 |
unless $auth_required =~ /^Basic realm="([^\"]+)"/ |
|
187
|
0 |
0 |
unless $bytes > 0 |
|
206
|
0 |
0 |
if ($_[0] and ref $_[0] || $_[0] =~ /^Bio::/) |
|
213
|
0 |
0 |
unless my($host, $port, $path, $user, $pass) = _http_parse_url($dest) |
|
217
|
0 |
0 |
if $proxy |
|
220
|
0 |
0 |
unless my $socket = _http_connect($host, $port) |
|
228
|
0 |
0 |
if ($auth_user and $auth_pass) |
|
242
|
0 |
0 |
unless my($stat_code, $stat_msg) = $status_line =~ m[^HTTP/1\.[01] (\d+) (.+)] |
|
246
|
0 |
0 |
if ($stat_code == 302 or $stat_code == 301) { } |
|
|
0 |
0 |
elsif ($stat_code == 401) { } |
|
|
0 |
0 |
elsif ($stat_code != 200) { } |
|
248
|
0 |
0 |
unless my $location = $headers{'Location'} |
|
254
|
0 |
0 |
unless $auth_required =~ /^Basic realm="([^\"]+)"/ |
|
286
|
0 |
0 |
if ($_[0] and ref $_[0] || $_[0] =~ /^Bio::/) |
|
290
|
0 |
0 |
unless my($user, $pass, $hostent, $path) = $url =~ m[^http://(?:([^:]+):([^:]+)@)?([^/]+)(/?[^\#]*)] |
|
333
|
0 |
0 |
if ($_[0] and ref $_[0] || $_[0] =~ /^Bio::/) |
|
338
|
0 |
0 |
unless defined $eol |
|
346
|
0 |
0 |
if $padding |
|
348
|
0 |
0 |
if (length $eol) |
|
372
|
0 |
0 |
if ($_[0] and ref $_[0] || $_[0] =~ /^Bio::/) |
|
376
|
0 |
0 |
ref $self ? : |
|
378
|
0 |
0 |
unless ($proxy) |
|
379
|
0 |
0 |
if (defined $ENV{'http_proxy'}) |
|
381
|
0 |
0 |
if ($proxy =~ /\@/) |
|
387
|
0 |
0 |
if (defined $proxy) |
|
389
|
0 |
0 |
if $username and $password |
|
408
|
0 |
0 |
if ($_[0] and ref $_[0] || $_[0] =~ /^Bio::/) |
|
412
|
0 |
0 |
ref $self ? : |
|
430
|
0 |
0 |
if ($_[0] and ref $_[0] || $_[0] =~ /^Bio::/) |
|
433
|
0 |
0 |
ref $self ? : |
|
434
|
0 |
0 |
if (@_) |
|
436
|
0 |
0 |
ref $self ? : |
|
440
|
0 |
0 |
unless $atts->{'_authentication'} |