| 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 |