Branch Coverage

blib/lib/HTTP/Engine/Request.pm
Criterion Covered Total %
branch 66 66 100.0


line true false branch
22 48 184 if (my $val = $$param{$field})
95 3 24 if (my $https = $self->_https_info)
96 2 1 if uc $https eq 'ON'
99 3 22 if (my $port = $self->port)
100 1 2 if $port == 443
116 24 3 unless $self->request_uri
117 1 2 unless $self->request_uri =~ m[^https?://]i
216 1 11 ref $param ? :
221 7 3 if @$param == 1
248 1 4 if @_ == 0
250 3 1 if (@_ == 1)
252 1 2 unless exists $self->cookies->{$name}
261 5 8 if @_ == 0
263 6 2 if (@_ == 1) { }
265 1 1 wantarray ? :
2 4 unless exists $self->parameters->{$param}
267 2 2 if (ref $self->parameters->{$param} eq 'ARRAY') { }
269 1 1 wantarray ? :
273 1 1 wantarray ? :
285 2 25 if @_ == 0
287 21 4 if (@_ == 1) { }
289 1 1 wantarray ? :
2 19 unless exists $self->uploads->{$upload}
291 9 10 if (ref $self->uploads->{$upload} eq 'ARRAY') { }
293 3 6 wantarray ? :
297 1 9 wantarray ? :
302 2 2 if (exists $self->uploads->{$field}) { }
304 1 1 unless ref $_ eq 'ARRAY'
317 22 22 unless $args
320 1 8 unless defined $value
321 4 4 ref $value eq 'ARRAY' ? :
345 4 1 if (not $location =~ m[^https?://]) { }
355 1 1 if (@args) { }