Branch Coverage

blib/lib/Net/HTTP/Spore/Request.pm
Criterion Covered Total %
branch 52 72 72.2


line true false branch
57 51 0 if (@_ == 1 and not exists $_[0]{'env'})
65 0 17 unless defined $str
66 0 17 if (&is_utf8($str))
74 0 48 if ($value) { }
84 0 0 if ($value) { }
93 0 4 if ($value) { }
103 0 2 if ($value) { }
113 0 2 if ($value) { }
123 0 4 if ($value) { }
133 0 0 if ($value) { }
143 0 47 if ($value) { }
165 9 34 unless (defined $path_info and defined $query_string)
167 9 0 unless $path_info
168 7 2 unless $query_string
174 9 34 if (defined $query_string and length $query_string > 0)
176 0 9 if ($is_interrogation >= 0) { }
184 34 9 if $path_info =~ m[^/]
193 6 3 unless $self->env->{'spore.params'}
200 2 1 defined $value ? :
201 1 2 unless (length $value)
207 2 0 unless ($path and $path =~ s/\:$key/$value/)
209 2 0 if $query_string and scalar @params
213 2 7 if $query_string
234 0 52 defined $env->{'spore.userinfo'} ? :
243 0 2 unless $size
298 15 1 if defined $v
301 3 13 if ($path_info and $path_info =~ s/\:$k/=$k/)
307 1 1 if ($f_v =~ s/^\:$k/$v/)
315 2 2 if ($h_v =~ s/^\:$k/$v/)
321 10 6 if ($modified == 0)
322 9 1 if (defined $v) { }
331 34 8 if ($path_info)
344 9 33 if (scalar @$query)
357 2 40 if (keys %$form_data)
366 2 40 if (my $payload = $self->content)
368 0 2 unless $request->header('Content-Type')