| line |
true |
false |
branch |
|
42
|
1 |
0 |
if ($res->is_success) { } |
|
56
|
0 |
1 |
unless defined $overwrite |
|
58
|
0 |
1 |
unless (-f $file) |
|
62
|
1 |
0 |
$overwrite ? : |
|
72
|
0 |
1 |
if ($code eq '409') { } |
|
|
1 |
0 |
elsif ($code eq '200') { } |
|
83
|
0 |
1 |
if ($upl_code ne '201') |
|
95
|
1 |
2 |
if ($recursive) |
|
105
|
2 |
1 |
if ($code eq '409') { } |
|
|
0 |
1 |
elsif ($code ne '201') { } |
|
108
|
2 |
0 |
if ($json_res->{'error'} eq 'DiskPathPointsToExistentDirectoryError') |
|
127
|
0 |
1 |
$permanently ? : |
|
131
|
1 |
0 |
if ($code eq '204') { } |
|
|
0 |
0 |
elsif ($code eq '202') { } |
|
136
|
0 |
0 |
if ($wait) |
|
138
|
0 |
0 |
unless $self->__waitResponse($href, $WAIT_RETRY) |
|
155
|
0 |
1 |
if ($code ne '200') |
|
170
|
0 |
1 |
$path ? : |
|
173
|
0 |
1 |
if ($code eq '204') { } |
|
|
1 |
0 |
elsif ($code eq '202') { } |
|
177
|
0 |
1 |
if ($wait) |
|
179
|
0 |
0 |
unless $self->__waitResponse($href, $WAIT_RETRY) |
|
184
|
0 |
0 |
if $path |
|
195
|
1 |
0 |
unless $offset |
|
200
|
0 |
1 |
if ($code ne '200') |
|
214
|
1 |
0 |
unless $offset |
|
217
|
0 |
1 |
if $media_type |
|
221
|
0 |
1 |
if ($code ne '200') |
|
236
|
0 |
1 |
if $media_type |
|
240
|
0 |
1 |
if ($code ne '200') |
|
258
|
0 |
1 |
unless open my $FL, ">$fname" |
|
262
|
1 |
0 |
if ($res->code eq '200') |
|
275
|
0 |
0 |
if ($code eq '200' and __fromJson($res->decoded_content)->{'status'} eq 'success') |
|
296
|
0 |
1 |
unless my $sock = 'IO::Socket::SSL'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp') |
|
311
|
0 |
1 |
unless open my $FH, "<$file" |
|
316
|
0 |
2 |
unless $sock->print($hex) |
|
317
|
0 |
2 |
unless $sock->print("\r\n") |
|
319
|
0 |
2 |
unless $sock->print($filebuf) |
|
320
|
0 |
2 |
unless $sock->print("\r\n") |
|
324
|
0 |
1 |
unless $sock->print("0\r\n") |
|
325
|
0 |
1 |
unless $sock->print("\r\n") |
|
347
|
3 |
8 |
ref $_[0] ? : |