| line |
true |
false |
branch |
|
36
|
8 |
3 |
unless $class->can('verify_credentials') |
|
45
|
0 |
11 |
$args{'identica'} ? : |
|
64
|
0 |
11 |
unless (exists $new->{'legacy_lists_api'}) |
|
79
|
4 |
7 |
if (delete $args{'ssl'}) |
|
85
|
0 |
11 |
if ($netrc) |
|
86
|
0 |
0 |
unless eval {
do {
require Net::Netrc;
1
}
} |
|
89
|
0 |
0 |
$netrc eq '1' ? : |
|
98
|
0 |
9 |
if $@ |
|
110
|
1 |
10 |
exists $new->{'consumer_key'} ? : |
|
114
|
4 |
0 |
if exists $new->{'username'} and exists $new->{'password'} |
|
123
|
0 |
5 |
unless @_ == 2 |
|
124
|
0 |
5 |
if exists $self->{'consumer_key'} |
|
144
|
0 |
1 |
if $@ |
|
147
|
0 |
1 |
if $@ |
|
210
|
0 |
0 |
unless $res->is_success |
|
235
|
0 |
0 |
unless $res->is_success |
|
268
|
0 |
0 |
unless $res->is_success |
|
298
|
256 |
0 |
unless ref $_ |
|
310
|
1 |
0 |
if ($authenticate and $self->authorized) { } |
|
|
0 |
0 |
elsif ($http_method eq 'GET') { } |
|
|
0 |
0 |
elsif ($http_method eq 'POST') { } |
|
313
|
0 |
1 |
$is_multipart ? : |
|
322
|
1 |
0 |
if ($http_method =~ /^(?:GET|DELETE)$/) { } |
|
|
0 |
0 |
elsif ($http_method eq 'POST') { } |
|
326
|
0 |
0 |
$is_multipart ? : |
|
362
|
90 |
64 |
if ($http_method =~ /^(?:GET|DELETE)$/) { } |
|
|
64 |
0 |
elsif ($http_method eq 'POST') { } |
|
373
|
48 |
0 |
if ($authenticate and $self->{'username'} and $self->{'password'}) |
|
383
|
0 |
64 |
if (grep {ref $_;} values %$args) { } |
|
410
|
0 |
8 |
unless eval "require $api_def_module" |
|
416
|
0 |
0 |
if (defined(my $id = delete $args->{'id'})) { } |
|
436
|
18 |
912 |
if @$arg_names == 0 and @{$options{'params'};} == 1 |
|
438
|
0 |
930 |
$path =~ s[/id$][/] ? : |
|
444
|
99 |
77 |
ref $_[-1] eq 'HASH' ? : |
|
445
|
0 |
176 |
if (my $content_type = $options{'content_type'}) |
|
449
|
1 |
43 |
exists $$args{-'legacy_lists_api'} ? : |
|
|
21 |
23 |
if (my $legacy_method = $self->can("legacy_$name") and exists $$args{-'legacy_lists_api'} ? delete $$args{-'legacy_lists_api'} : $self->{'legacy_lists_api'}) |
|
459
|
0 |
155 |
if @_ > @$arg_names |
|
466
|
0 |
73 |
if exists $args->{$param} |
|
471
|
6 |
149 |
if $options{'add_source'} |
|
475
|
2 |
153 |
exists $args->{'authenticate'} ? : |
|
479
|
0 |
160 |
if (exists $args->{$boolean_arg}) |
|
480
|
0 |
0 |
if $args->{$boolean_arg} =~ /^true|false$/ |
|
481
|
0 |
0 |
$args->{$boolean_arg} ? : |
|
488
|
0 |
155 |
if exists $args->{'skip_user'} and $args->{'skip_user'} eq 'false' |
|
494
|
124 |
31 |
unless exists $args->{'id'} |
|
495
|
0 |
61 |
unless delete $args->{$1} |
|
501
|
3 |
307 |
if ref $args->{$_} eq 'ARRAY' |
|
522
|
8 |
56 |
unless my $orig = $class->can($_) |
|
526
|
0 |
11 |
if ($@) |
|
527
|
0 |
0 |
if $@ =~ /The specified user is not a (?:memb|subscrib)er of this list/ |
|
551
|
2 |
2 |
if @_ |
|
568
|
0 |
0 |
if @_ |
|
592
|
0 |
151 |
if ($obj and ref $obj eq 'HASH' and exists $obj->{'error'}) |
|
596
|
151 |
4 |
if ($res->is_success and defined $obj) |
|
597
|
17 |
134 |
if ($self->{'wrap_result'}) |
|
604
|
0 |
4 |
if ref $obj |