Branch Coverage

blib/lib/Net/HTTP/Spore/Request.pm
Criterion Covered Total %
branch 45 62 72.5


line true false branch
55 49 0 if (@_ == 1 and not exists $_[0]{'env'})
63 0 46 if ($value) { }
73 0 0 if ($value) { }
82 0 4 if ($value) { }
92 0 2 if ($value) { }
102 0 2 if ($value) { }
112 0 4 if ($value) { }
122 0 0 if ($value) { }
132 0 44 if ($value) { }
154 9 32 unless (defined $path_info and defined $query_string)
156 9 0 unless $path_info
157 7 2 unless $query_string
166 9 32 if (defined $query_string and length $query_string > 0)
170 32 9 if $path =~ m[^/]
179 6 3 unless $self->env->{'spore.params'}
185 1 2 unless ($value)
189 2 0 unless ($path and $path =~ s/\:$key/$value/)
191 2 0 if $query_string and scalar @params
195 2 7 if $query_string
214 0 50 defined $env->{'spore.userinfo'} ? :
223 0 2 unless $size
278 3 13 if ($path_info and $path_info =~ s/\:$k/$v/)
284 1 1 if ($f_v =~ s/^\:$k/$v/)
292 2 2 if ($h_v =~ s/^\:$k/$v/)
298 10 6 if ($modified == 0)
299 9 1 if (defined $v) { }
308 32 8 if $path_info
311 9 31 if (scalar @$query)
324 2 38 if (keys %$form_data)
333 1 39 if (my $payload = $self->content)
335 0 1 unless $request->header('Content-Type')