line |
true |
false |
branch |
36
|
8 |
3 |
unless $class->can('verify_credentials') |
39
|
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 $@ |
109
|
1 |
10 |
exists $$new{'consumer_key'} ? : |
113
|
4 |
7 |
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 $_ |
309
|
1 |
0 |
if ($authenticate and $self->authorized) { } |
|
0 |
0 |
elsif ($http_method eq 'GET') { } |
|
0 |
0 |
elsif ($http_method eq 'POST') { } |
312
|
0 |
1 |
$is_multipart ? : |
321
|
1 |
0 |
if ($http_method =~ /^(?:GET|DELETE)$/) { } |
|
0 |
0 |
elsif ($http_method eq 'POST') { } |
325
|
0 |
0 |
$is_multipart ? : |
361
|
90 |
64 |
if ($http_method =~ /^(?:GET|DELETE)$/) { } |
|
64 |
0 |
elsif ($http_method eq 'POST') { } |
372
|
48 |
102 |
if ($authenticate and $$self{'username'} and $$self{'password'}) |
382
|
0 |
64 |
if (grep {ref $_;} values %$args) { } |
409
|
0 |
8 |
unless eval "require $api_def_module" |
415
|
0 |
0 |
if (defined(my $id = delete $$args{'id'})) { } |
434
|
18 |
910 |
if @$arg_names == 0 and @{$options{'params'};} == 1 |
436
|
0 |
928 |
$path =~ s[/id$][/] ? : |
442
|
99 |
77 |
ref $_[-1] eq 'HASH' ? : |
444
|
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'}) |
453
|
0 |
155 |
if @_ > @$arg_names |
458
|
0 |
73 |
if exists $$args{$param} |
464
|
6 |
149 |
if $options{'add_source'} |
466
|
2 |
153 |
exists $$args{'authenticate'} ? : |
471
|
0 |
160 |
if (exists $$args{$boolean_arg}) |
472
|
0 |
0 |
if $$args{$boolean_arg} =~ /^true|false$/ |
473
|
0 |
0 |
$$args{$boolean_arg} ? : |
479
|
0 |
155 |
if exists $$args{'skip_user'} and $$args{'skip_user'} eq 'false' |
483
|
124 |
31 |
unless exists $$args{'id'} |
484
|
0 |
61 |
unless delete $$args{$1} |
488
|
3 |
307 |
if ref $$args{$_} eq 'ARRAY' |
506
|
8 |
56 |
unless my $orig = $class->can($_) |
510
|
0 |
11 |
if ($@) |
511
|
0 |
0 |
if $@ =~ /The specified user is not a (?:memb|subscrib)er of this list/ |
535
|
2 |
2 |
if @_ |
552
|
0 |
0 |
if @_ |
576
|
0 |
151 |
if ($obj and ref $obj eq 'HASH' and exists $$obj{'error'}) |
580
|
151 |
4 |
if ($res->is_success and defined $obj) |
581
|
17 |
134 |
if ($$self{'wrap_result'}) |
588
|
0 |
4 |
if ref $obj |