| 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])) |