Branch Coverage

blib/lib/Net/STF/Client.pm
Criterion Covered Total %
branch 4 40 10.0


line true false branch
29 0 1 if (@_ == 1 and ref $_[0] eq 'HASH')
35 0 0 if (@_ == 2 and not ref $_[0] and ref $_[1] eq 'HASH')
46 1 0 unless ($self->furl)
65 14 0 if ($path =~ m[^/+[^/]+(?:/+[\./]*)?$])
75 14 0 unless ($prefix)
94 0 0 unless (&HTTP::Status::is_success($res[1]))
110 0 0 if (defined $username and defined $password)
115 0 0 if ($$opts{'headers'})
119 0 0 if (my $value = $$opts{$key})
134 0 0 unless (defined $content)
138 0 0 if (ref $content eq 'SCALAR') { }
0 0 elsif (&Scalar::Util::openhandle($content)) { }
146 0 0 unless open my $fh, '<', $content
155 0 0 if (my $consistency = $$opts{'consistency'})
167 0 0 unless (&HTTP::Status::is_success($res[1]))
173 0 0 unless defined wantarray
194 0 0 unless (&HTTP::Status::is_success($res[1]))
216 0 0 unless (&HTTP::Status::is_success($res[1]))
233 0 0 if ($$opts{'recursive'})
246 0 0 unless (&HTTP::Status::is_success($res[1]))