Condition Coverage

blib/lib/HTTP/Async.pm
Criterion Covered Total %
condition 48 80 60.0


and 3 conditions

line !l l&&!r l&&r condition
186 736 1014 7 $id and defined $self->{'id_opts'}{$id}{$key}
666 26 2 31 $response->is_redirect and $hashref->{'redirects_left'} > 0
28 31 0 $response->is_redirect and $hashref->{'redirects_left'} > 0 and $get_or_head || !($code =~ /^30[127]$/)
0 1 30 $response->is_redirect and $hashref->{'redirects_left'} > 0 and $get_or_head || !($code =~ /^30[127]$/) and $code != 304
1 0 30 $response->is_redirect and $hashref->{'redirects_left'} > 0 and $get_or_head || !($code =~ /^30[127]$/) and $code != 304 and $code != 305
680 0 0 30 $uri and ref $uri
0 0 30 $uri and ref $uri and $loc
0 0 30 $uri and ref $uri and $loc and not ref $loc
693 30 0 0 $request->header('Referer') and $hashref->{'request'}->uri->scheme eq 'https'
30 0 0 $request->header('Referer') and $hashref->{'request'}->uri->scheme eq 'https' and $request->uri->scheme eq 'http'
701 30 0 0 $code == 303 and not $get_or_head
770 10460 0 39 scalar @{$self->{'to_send'};} and $self->slots > scalar keys %{$$self{'in_progress'};}
826 0 69 0 $uri->scheme and $uri->scheme eq 'https'
69 0 0 $uri->scheme and $uri->scheme eq 'https' and not $request_is_to_proxy
0 69 0 $uri->scheme and $uri->scheme eq 'https'
69 0 0 $uri->scheme and $uri->scheme eq 'https' and $request_is_to_proxy

or 2 conditions

line l !l condition
333 30 12 shift() || 0
556 234 0 $self->{'fileno_to_id'}{$s->fileno} || die('INTERNAL ERROR: could not got id for fileno')
561 170 64 $hashref->{'tmp'} ||= {}
881 30 37 $self->{'in_progress'}{$id} ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
342 33 7 655 $resp_and_id or &HTTP::Async::time() > $end_time
566 0 1 233 &HTTP::Async::time() > $hashref->{'timeout_at'} or &HTTP::Async::time() > $hashref->{'finish_by'}
666 31 0 0 $get_or_head || !($code =~ /^30[127]$/)
733 2 1 9475 &HTTP::Async::time() > $hashref->{'timeout_at'} or &HTTP::Async::time() > $hashref->{'finish_by'}
812 3 0 66 $args{'PeerAddr'} || $args{'PeerPort'}
817 3 66 0 $args{'PeerAddr'} ||= $uri->host
823 3 66 0 $args{'PeerPort'} ||= $uri->port
915 10567 30 0 $self->{'io_select'} ||= 'IO::Select'->new