Branch Coverage

blib/lib/Catalyst/Engine.pm
Criterion Covered Total %
branch 76 102 74.5


line true false branch
73 5 920 if $res->_has_write_fh
76 908 12 if ($res->_has_response_cb) { }
85 867 41 if (defined $body) { }
87 12 855 if (&blessed($body)) { }
6 849 elsif (ref $body) { }
88 1 11 if ($body->can('getline')) { }
0 11 elsif ($body->can('read')) { }
104 0 0 unless $self->write($c, $buffer)
115 6 0 if (ref $body eq 'GLOB' or ref $body eq 'ARRAY') { }
145 3 9 if (my $body = $res->body)
147 0 3 if (&blessed($body) and $body->can('read') or ref $body eq 'GLOB') { }
155 0 0 unless $self->write($c, $buffer)
207 1 7 &blessed($val) ? :
208 1 7 unless (defined $cookie)
209 0 1 if $c->debug
237 0 15 if ref $val eq "HASH" and exists $val->{'__MOP__'}
258 34 0 if ($c->can("encoding"))
263 7 27 if ($c->debug) { }
428 0 0 unless $ctx->response->finalized_headers
447 1 17 ref $upload eq 'ARRAY' ? :
515 7 931 $ctx->request->secure ? :
522 323 615 if (not $ctx->config->{'use_request_uri_for_path'}) { }
524 3 320 if (exists $env->{'REDIRECT_URL'})
546 0 0 unless ($port =~ /^(?:80|443)$/ or $host =~ /:/)
550 84 854 $env->{'QUERY_STRING'} ? :
557 8 930 unless $base_path =~ m[/$]
580 1 929 if (my $new = $c->config->{'default_query_encoding'})
585 0 930 $c->config->{'do_not_check_query_encoding'} ? :
588 0 283 if $do_not_decode_query
594 929 1 exists $env->{'QUERY_STRING'} ? :
604 283 5 defined $_ ? :
607 84 59 if ($is_first_pair)
610 5 79 unless defined $value
619 1 928 if $old_encoding
620 4 925 $c->request->_use_hash_multivalue ? :
644 888 51 if $ctx->log->can("psgienv")
658 879 46 unless $request->_body
665 18 0 if $enc
667 1 17 ref $files eq 'ARRAY' ? :
670 20 0 if $enc
683 1 17 @uploads > 1 ? :
688 2 16 if (exists $parameters->{$name}) { }
689 0 2 if (ref $parameters->{$name} eq 'ARRAY') { }
697 1 15 @filenames > 1 ? :
773 1 0 if scalar @args and &blessed($args[-1])
774 1 0 if scalar @args and ref $args[-1] eq "HASH"
776 0 1 if (scalar @args and not ref $args[0])
777 0 0 if (my $listen = shift @args)
781 0 1 unless ($server)
806 0 930 unless $respond
822 79 1 defined $1 ? :