| line |
true |
false |
branch |
|
22
|
0 |
0 |
if ($path =~ s[(/rest/.*)$][]u) |
|
28
|
0 |
0 |
if ($path =~ s[/+$][]u) |
|
32
|
0 |
0 |
unless ($args{'anonymous'} or $args{'pat'}) |
|
34
|
0 |
0 |
unless (defined $args{'username'} and defined $args{'password'}) |
|
41
|
0 |
0 |
if not defined $args{$_} or ref $args{$_} or length $args{$_} == 0 |
|
53
|
0 |
0 |
unless ($args{'anonymous'} or $args{'session'}) |
|
59
|
0 |
0 |
$args{'pat'} ? : |
|
69
|
0 |
0 |
if $args{'proxy'} |
|
72
|
0 |
0 |
if $args{'ssl_verify_none'} |
|
87
|
0 |
0 |
if $args{'session'} |
|
100
|
0 |
0 |
if (@args == 1 and ref $args[0] and ref $args[0] eq 'HASH') { } |
|
104
|
0 |
0 |
if keys %{$args[0];} |
|
111
|
0 |
0 |
if (not $args{'url'}) { } |
|
|
0 |
0 |
elsif (not ref $args{'url'}) { } |
|
|
0 |
0 |
elsif (not $args{'url'}->isa('URI')) { } |
|
119
|
0 |
0 |
if (!!$args{'anonymous'} + !!$args{'pat'} + !!$args{'session'} > 1) |
|
125
|
0 |
0 |
unless defined $_ and ref $_ and ref $_ eq "HASH" |
|
131
|
0 |
0 |
if (my $proxy = delete $args{'rest_client_config'}{'proxy'}) |
|
142
|
0 |
0 |
if (@args == 1 and ref $args[0] and ref $args[0] eq 'HASH') { } |
|
153
|
0 |
0 |
if exists $self->{'_session'} |
|
163
|
0 |
0 |
if $@ |
|
164
|
0 |
0 |
if defined $username and defined $password |
|
169
|
0 |
0 |
if $@ |
|
170
|
0 |
0 |
if defined $username and defined $password |
|
186
|
0 |
0 |
unless eval {
do {
require Config::Identity;
"Config::Identity"->VERSION("0.0019")
}
} |
|
195
|
0 |
0 |
unless eval {
do {
require Net::Netrc;
1
}
} |
|
197
|
0 |
0 |
if (my $machine = 'Net::Netrc'->lookup($URL->host, $username)) { } |
|
209
|
0 |
0 |
unless $type |
|
210
|
0 |
0 |
unless $code |
|
214
|
0 |
0 |
if (eval {
do {
require HTTP::Status
}
}) |
|
215
|
0 |
0 |
if (my $status = &HTTP::Status::status_message($code)) |
|
222
|
0 |
0 |
if ($type =~ m[text/plain]iu) { } |
|
|
0 |
0 |
elsif ($type =~ m[application/json]u) { } |
|
|
0 |
0 |
elsif ($type =~ m[text/html]iu and eval {
do {
require HTML::TreeBuilder
}
}) { } |
|
|
0 |
0 |
elsif ($type =~ m[^(text/|application|xml)]iu) { } |
|
226
|
0 |
0 |
if (ref $error eq 'HASH') { } |
|
233
|
0 |
0 |
if exists $error->{'elementErrors'} |
|
236
|
0 |
0 |
if (my $errorMessages = $error->{'errorMessages'}) |
|
241
|
0 |
0 |
if (my $errors = $error->{'errors'}) |
|
246
|
0 |
0 |
if $error->{'errorMessage'} |
|
269
|
0 |
0 |
unless $code =~ /^2/u |
|
272
|
0 |
0 |
unless $content |
|
274
|
0 |
0 |
if (not defined $type) { } |
|
|
0 |
0 |
elsif ($type =~ m[^application/json]iu) { } |
|
|
0 |
0 |
elsif ($type =~ m[^text/plain]iu) { } |
|
290
|
0 |
0 |
unless $path =~ m[^(?:/rest/|(?i)https?:)]u |
|
292
|
0 |
0 |
if (defined $query) { } |
|
293
|
0 |
0 |
unless ref $query and ref $query eq "HASH" |
|
320
|
0 |
0 |
unless defined $value |
|
336
|
0 |
0 |
unless defined $value |
|
373
|
0 |
0 |
unless my $iter = $self->{'iter'} |
|
375
|
0 |
0 |
if ($iter->{'offset'} == $iter->{'results'}{'total'}) { } |
|
|
0 |
0 |
elsif ($iter->{'offset'} == $iter->{'results'}{'startAt'} + @{$iter->{'results'}{'issues'};}) { } |
|
407
|
0 |
0 |
unless $response->is_success |