line |
true |
false |
branch |
44
|
1 |
0 |
if ($@) |
76
|
0 |
0 |
unless my $body = $self->api({'method', 'POST', 'url', $request_token_url, 'callback', $callback_url}) |
97
|
0 |
0 |
unless my $body = $self->api({'method', 'POST', 'url', $access_token_url, 'verifier', $$args{'verifier'}}) |
162
|
0 |
0 |
if (ref $output eq 'CODE') { } |
|
0 |
0 |
elsif (ref $output) { } |
169
|
0 |
0 |
unless $$opts{'write_file'} |
179
|
0 |
0 |
if $self->error |
185
|
0 |
0 |
if (exists $$params{'overwrite'} and $$params{'overwrite'}) |
203
|
0 |
0 |
if (exists $$params{'overwrite'} and $$params{'overwrite'}) |
308
|
0 |
0 |
if (ref $output eq 'CODE') { } |
|
0 |
0 |
elsif (ref $output) { } |
315
|
0 |
0 |
unless $$opts{'write_file'} |
319
|
0 |
0 |
if $params |
325
|
0 |
0 |
if $self->error |
351
|
0 |
0 |
if (ref $from) { } |
411
|
0 |
0 |
if $WebService::CloudPT::USE_LWP |
416
|
0 |
0 |
if ($code != 200) { } |
430
|
0 |
0 |
if ($$args{'write_file'}) |
436
|
0 |
0 |
if ($$args{'content'}) { } |
439
|
0 |
0 |
if (not $content =~ /^path=/ || $content =~ /^rev=/ || $content =~ /^from_/ || $content =~ /^to_email/ || $content =~ /^shareid=/) { } |
449
|
0 |
0 |
unless $_[0] |
453
|
0 |
0 |
if (not $content =~ /^path\=/ || $content =~ /^rev=/ || $content =~ /^from_/ || $content =~ /^to_email/ || $content =~ /^shareid=/) { } |
467
|
0 |
0 |
if ($$args{'headers'}) |
473
|
0 |
0 |
if $$self{'env_proxy'} |
476
|
0 |
0 |
if ($res->is_success) { } |
487
|
0 |
0 |
unless my $body = $self->api($args) |
488
|
0 |
0 |
if ($self->error) |
492
|
0 |
0 |
if $self->error |
493
|
0 |
0 |
if $self->no_decode_json |
500
|
0 |
0 |
unless $$args{'url'} |
501
|
0 |
0 |
unless $$args{'method'} |
504
|
0 |
0 |
if ($$args{'url'} eq $request_token_url) { } |
|
0 |
0 |
elsif ($$args{'url'} eq $access_token_url) { } |
507
|
0 |
0 |
unless $self->request_token |
508
|
0 |
0 |
unless $self->request_secret |
513
|
0 |
0 |
unless $self->access_token |
514
|
0 |
0 |
unless $self->access_secret |
540
|
0 |
0 |
unless ($$self{'furl'}) |
547
|
0 |
0 |
if $$self{'env_proxy'} |
555
|
0 |
0 |
if $params |
561
|
0 |
0 |
unless defined $path |
562
|
0 |
0 |
unless length $path |
582
|
0 |
0 |
if scalar @_ == 1 |
583
|
0 |
0 |
scalar @_ == 2 ? : |
588
|
0 |
0 |
defined $_[1] ? : |