| 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] ? : |