Branch Coverage

blib/lib/Catalyst/Controller/WrapCGI.pm
Criterion Covered Total %
branch 26 34 76.4


line true false branch
124 0 23 if (defined $location and length $location and $res->code == 200) { }
161 2 23 if ($body) { }
168 1 22 if (my(%uploads) = %{$c->req->uploads;}) { }
10 12 elsif (%$body_params) { }
202 0 25 $c->can('user_exists') && $c->user_exists ? :
205 25 0 if $c->req->can("remote_user")
208 10 0 utf8::is_utf8($_) ? :
211 1 24 $username ? :
237 2 23 if ($saved_error)
238 0 2 if ref $saved_error
291 27 1 unless defined $pass_env
292 1 27 unless ref $pass_env
295 27 1 unless defined $kill_env
296 0 28 unless ref $kill_env
298 1 27 if (@$pass_env) { }
300 0 1 if (m[^/(.*)/\z]) { }
312 0 540 if ($k =~ m[^/(.*)/\z]) { }