blib/lib/LWP/UserAgent.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 73 | 160 | 45.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
75 | 32 | 0 | 0 | $conn_cache and $keep_alive |
86 | 32 | 0 | 0 | $protocols_allowed and ref $protocols_allowed ne 'ARRAY' |
88 | 32 | 0 | 0 | $protocols_forbidden and ref $protocols_forbidden ne 'ARRAY' |
90 | 0 | 32 | 0 | $requests_redirectable and ref $requests_redirectable ne 'ARRAY' |
93 | 31 | 1 | 0 | %cnf and $^W |
200 | 1 | 0 | 69 | not $response and $self->{'use_eval'} |
207 | 1 | 0 | 0 | &blessed($error) and $error->isa('HTTP::Response') |
323 | 6 | 0 | 0 | $referral->header('Referer') and $request->uri->scheme eq 'https' |
6 | 0 | 0 | $referral->header('Referer') and $request->uri->scheme eq 'https' and $referral->uri->scheme eq 'http' | |
444 | 0 | 6 | 4 | @_ and ref $_[0] |
453 | 0 | 8 | 2 | defined $content and not ref $content |
467 | 3 | 8 | 2 | defined $ct and $self->_has_raw_content(@parameters) |
522 | 0 | 0 | 0 | ref $arg and UNIVERSAL::isa($arg, 'CODE') |
618 | 0 | 1 | 0 | ref $self and $x = $self->protocols_allowed |
0 | 0 | 1 | ref $self and $x = $self->protocols_forbidden | |
627 | 0 | 0 | 0 | $x and $x ne 'LWP::Protocol::nogo' |
725 | 0 | 0 | 8 | $] >= 5.008 and $HTML::Parser::VERSION >= 3.4 |
775 | 0 | 0 | 0 | @_ == 1 and $_[0]->can('header_field_names') |
856 | 3 | 0 | 6 | not @h and $init |
889 | 410 | 3 | 47 | $o->{'handlers'} and $o->{'handlers'}{$phase} |
918 | 0 | 0 | 0 | @_ > 1 and $^W |
985 | 0 | 0 | 0 | defined $content_length and $file_length < $content_length |
0 | 0 | 0 | defined $content_length and $file_length > $content_length | |
1038 | 17 | 10 | 1 | not @_ and ref $key eq 'ARRAY' |
1052 | 1 | 0 | 14 | defined $url and length $url |
1054 | 2 | 12 | 0 | $url =~ /^https?:/ and not $url =~ m[^https?://\w] |
line | l | !l | condition |
---|---|---|---|
34 | 7 | 25 | delete $cnf{'ssl_opts'} || {} |
131 | 0 | 1 | $conn_cache ||= {'total_capacity', $keep_alive} |
203 | 68 | 0 | $protocol->request($request, $proxy, $arg, $size, $self->{'timeout'}) || die("No response returned by $protocol") |
665 | 50 | 6 | shift() || '' |
666 | 49 | 7 | shift() || '' |
865 | 6 | 0 | $spec{'callback'} ||= sub { } |
876 | 11 | 45 | $self->{'handlers'}{$phase} || (return) |
1021 | 16 | 7 | $ua->{'proxy'}{$req->uri->scheme} || (return) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
37 | 0 | 0 | 21 | $ENV{'HTTPS_CA_FILE'} or $ENV{'HTTPS_CA_DIR'} |
50 | 0 | 0 | 31 | $ENV{'PERL_LWP_SSL_CA_FILE'} || $ENV{'HTTPS_CA_FILE'} |
55 | 0 | 0 | 32 | $ENV{'PERL_LWP_SSL_CA_PATH'} || $ENV{'HTTPS_CA_DIR'} |
114 | 2 | 30 | 0 | defined $agent or not $def_headers |
32 | 0 | 0 | defined $agent or not $def_headers or not $def_headers->header('User-Agent') | |
266 | 0 | 0 | 72 | ref $request eq 'ARRAY' or ref $request eq 'HASH' |
0 | 0 | 72 | ref $request eq 'ARRAY' or ref $request eq 'HASH' or not $request->can('method') | |
0 | 0 | 72 | ref $request eq 'ARRAY' or ref $request eq 'HASH' or not $request->can('method') or not $request->can('uri') | |
313 | 6 | 0 | 65 | $code == 301 or $code == 302 |
6 | 0 | 65 | $code == 301 or $code == 302 or $code == 303 | |
0 | 0 | 65 | $code == 301 or $code == 302 or $code == 303 or $code == 307 | |
8 | 0 | 57 | $code == 401 or $code == 407 | |
332 | 0 | 0 | 6 | $code == 303 or $code == 302 |
336 | 0 | 0 | 0 | $method eq 'GET' or $method eq 'HEAD' |
364 | 0 | 0 | 8 | $proxy || $request->method eq 'CONNECT' |
773 | 28 | 32 | 0 | $self->{'def_headers'} ||= 'HTTP::Headers'->new |
827 | 48 | 0 | 0 | $spec{'line'} ||= join(':', (caller)[1, 2]) |
828 | 0 | 48 | 0 | $self->{'handlers'}{$phase} ||= do { require HTTP::Config; 'HTTP::Config'->new } |
839 | 0 | 56 | 0 | $spec{'line'} ||= join(':', (caller)[1, 2]) |
866 | 0 | 6 | 0 | $spec{'line'} ||= join(':', (caller)[1, 2]) |
1105 | 4 | 0 | 0 | $message ||= &HTTP::Status::status_message($code) |
1111 | 1 | 3 | 0 | $content || "$code $message\n" |