| line |
true |
false |
branch |
|
67
|
0 |
0 |
if scalar @_ > 0
|
|
68
|
0 |
1 |
if scalar @_ > 0
|
|
70
|
0 |
1 |
if scalar @_ > 0
|
|
73
|
0 |
0 |
if $self->debug
|
|
77
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
81
|
0 |
1 |
if (defined $env_debug)
|
|
82
|
0 |
0 |
if &looks_like_number($env_debug)
|
|
101
|
0 |
0 |
if scalar @_ > 0
|
|
119
|
0 |
1 |
if scalar @_ > 0
|
|
122
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
124
|
0 |
1 |
if length $content == 0
|
|
126
|
0 |
1 |
unless $response->content_type =~ /\bxml\b/
|
|
143
|
0 |
3 |
unless scalar @_ > 0
|
|
|
0 |
3 |
if scalar @_ > 1
|
|
145
|
0 |
3 |
if length $content == 0
|
|
147
|
0 |
3 |
unless $response->content_type =~ /\bjson\b/
|
|
167
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
if scalar @_ > 1
|
|
172
|
0 |
4 |
unless scalar @_ > 0
|
|
|
0 |
4 |
unless scalar @_ > 1
|
|
|
0 |
4 |
if scalar @_ > 4
|
|
174
|
0 |
4 |
if $self->debug
|
|
179
|
0 |
4 |
if (defined $content and length $content) { }
|
|
189
|
2 |
2 |
if (defined $headers)
|
|
192
|
1 |
1 |
if lc $h_name eq "accept"
|
|
197
|
3 |
1 |
unless $seen_accept
|
|
200
|
2 |
2 |
if $self->has_authorization_token
|
|
217
|
0 |
4 |
if ($self->_has_debug_trace_directory)
|
|
219
|
0 |
0 |
unless $self->_debug_trace_directory->is_dir
|
|
223
|
0 |
0 |
$response->content_type =~ /json/ ? :
|
|
229
|
0 |
4 |
if ($response->is_error)
|
|
290
|
0 |
1 |
if scalar @_ > 0
|
|
291
|
0 |
0 |
if scalar @_ > 0
|
|
293
|
0 |
1 |
if scalar @_ > 0
|
|
297
|
0 |
1 |
if scalar @_ > 0
|
|
302
|
9 |
4 |
if ($verblock->{'-deprecated'} || '') eq "true"
|
|
303
|
4 |
0 |
if ($verblock->{'Version'} > $version)
|
|
309
|
0 |
1 |
if $self->debug
|
|
310
|
0 |
1 |
unless $version_block
|
|
315
|
0 |
1 |
if scalar @_ > 0
|
|
340
|
0 |
1 |
if scalar @_ > 0
|
|
343
|
0 |
1 |
if $self->debug
|
|
344
|
1 |
0 |
$self->orgname eq 'System' ? :
|
|
347
|
0 |
1 |
if ($url =~ m[/cloudapi/]) { }
|
|
366
|
0 |
1 |
if $self->debug
|
|
374
|
0 |
1 |
if scalar @_ > 0
|
|
376
|
0 |
0 |
if scalar @_ > 0
|
|
377
|
0 |
0 |
if ($self->has_current_session)
|
|
387
|
0 |
2 |
unless scalar @_ > 0
|
|
|
0 |
2 |
if scalar @_ > 1
|
|
389
|
2 |
0 |
if ($response->is_success) { }
|
|
390
|
0 |
2 |
if $self->debug
|
|
393
|
0 |
2 |
unless (defined $hash)
|
|
394
|
0 |
0 |
if $self->debug
|
|
401
|
0 |
2 |
unless (defined $mime_type)
|
|
406
|
2 |
0 |
$mime_type =~ m[^application/vnd\..*\.(\w+)\+json$] ? :
|
|
407
|
1 |
1 |
substr($type, -4, 4) eq 'List' ? :
|
|
409
|
1 |
1 |
if ($type ne $thing_type and exists $hash->{$thing_type} and XXX) { }
|
|
413
|
0 |
1 |
if $self->debug
|
|
427
|
0 |
1 |
if $self->debug
|
|
446
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
452
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
458
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
unless scalar @_ > 1
|
|
|
0 |
0 |
unless scalar @_ > 2
|
|
|
0 |
0 |
if scalar @_ > 3
|
|
460
|
0 |
0 |
XXX ? :
|
|
465
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
unless scalar @_ > 1
|
|
|
0 |
0 |
unless scalar @_ > 2
|
|
|
0 |
0 |
if scalar @_ > 3
|
|
467
|
0 |
0 |
XXX ? :
|
|
472
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
if scalar @_ > 1
|
|
489
|
0 |
0 |
if scalar @_ > 0
|
|
491
|
0 |
0 |
unless scalar @links == 1
|
|
499
|
0 |
0 |
if scalar @_ > 0
|
|
514
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
|
1 |
0 |
ref $thing eq 'ARRAY' ? :
|
|
|
0 |
1 |
!defined($thing) ? :
|