| line |
true |
false |
branch |
|
67
|
0 |
0 |
if scalar @_ > 0
|
|
68
|
0 |
1 |
if scalar @_ > 0
|
|
69
|
0 |
1 |
if scalar @_ > 0
|
|
70
|
0 |
0 |
if $self->debug
|
|
74
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
78
|
0 |
1 |
if (defined $env_debug)
|
|
79
|
0 |
0 |
if &looks_like_number($env_debug)
|
|
98
|
0 |
0 |
if scalar @_ > 0
|
|
116
|
0 |
1 |
if scalar @_ > 0
|
|
119
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
121
|
0 |
1 |
if length $content == 0
|
|
123
|
0 |
1 |
unless $response->content_type =~ /\bxml\b/
|
|
140
|
0 |
3 |
unless scalar @_ > 0
|
|
|
0 |
3 |
if scalar @_ > 1
|
|
142
|
0 |
3 |
if length $content == 0
|
|
144
|
0 |
3 |
unless $response->content_type =~ /\bjson\b/
|
|
164
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
if scalar @_ > 1
|
|
169
|
0 |
4 |
unless scalar @_ > 0
|
|
|
0 |
4 |
unless scalar @_ > 1
|
|
|
0 |
4 |
if scalar @_ > 4
|
|
171
|
0 |
4 |
if $self->debug
|
|
176
|
0 |
4 |
if (defined $content and length $content) { }
|
|
186
|
2 |
2 |
if (defined $headers)
|
|
189
|
1 |
1 |
if lc $h_name eq 'accept'
|
|
194
|
3 |
1 |
unless $seen_accept
|
|
197
|
2 |
2 |
if $self->has_authorization_token
|
|
214
|
0 |
4 |
if ($self->_has_debug_trace_directory)
|
|
216
|
0 |
0 |
unless $self->_debug_trace_directory->is_dir
|
|
220
|
0 |
0 |
$response->content_type =~ /json/ ? :
|
|
226
|
0 |
4 |
if ($response->is_error)
|
|
280
|
0 |
1 |
if scalar @_ > 0
|
|
281
|
0 |
1 |
if scalar @_ > 0
|
|
283
|
0 |
1 |
if scalar @_ > 0
|
|
288
|
9 |
4 |
if ($verblock->{'-deprecated'} || '') eq 'true'
|
|
289
|
4 |
0 |
if ($verblock->{'Version'} > $version)
|
|
295
|
0 |
1 |
if $self->debug
|
|
296
|
0 |
1 |
unless $version_block
|
|
301
|
0 |
1 |
if scalar @_ > 0
|
|
326
|
0 |
1 |
if scalar @_ > 0
|
|
329
|
0 |
1 |
if $self->debug
|
|
336
|
0 |
1 |
if $self->debug
|
|
345
|
0 |
1 |
if scalar @_ > 0
|
|
347
|
0 |
0 |
if scalar @_ > 0
|
|
348
|
0 |
0 |
if ($self->has_current_session)
|
|
358
|
0 |
2 |
unless scalar @_ > 0
|
|
|
0 |
2 |
if scalar @_ > 1
|
|
360
|
2 |
0 |
if ($response->is_success) { }
|
|
361
|
0 |
2 |
if $self->debug
|
|
364
|
0 |
2 |
unless (defined $hash)
|
|
365
|
0 |
0 |
if $self->debug
|
|
372
|
0 |
2 |
unless (defined $mime_type)
|
|
377
|
2 |
0 |
$mime_type =~ m[^application/vnd\..*\.(\w+)\+json$] ? :
|
|
378
|
1 |
1 |
substr($type, -4, 4) eq 'List' ? :
|
|
380
|
1 |
1 |
if ($type ne $thing_type and exists $hash->{$thing_type} and XXX) { }
|
|
384
|
0 |
1 |
if $self->debug
|
|
398
|
0 |
1 |
if $self->debug
|
|
413
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
419
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
425
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
unless scalar @_ > 1
|
|
|
0 |
0 |
unless scalar @_ > 2
|
|
|
0 |
0 |
if scalar @_ > 3
|
|
427
|
0 |
0 |
XXX ? :
|
|
432
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
unless scalar @_ > 1
|
|
|
0 |
0 |
unless scalar @_ > 2
|
|
|
0 |
0 |
if scalar @_ > 3
|
|
434
|
0 |
0 |
XXX ? :
|
|
439
|
0 |
0 |
unless scalar @_ > 0
|
|
|
0 |
0 |
if scalar @_ > 1
|
|
456
|
0 |
0 |
if scalar @_ > 0
|
|
458
|
0 |
0 |
unless scalar @links == 1
|
|
466
|
0 |
0 |
if scalar @_ > 0
|
|
480
|
0 |
1 |
unless scalar @_ > 0
|
|
|
0 |
1 |
if scalar @_ > 1
|
|
|
1 |
0 |
ref $thing eq 'ARRAY' ? :
|
|
|
0 |
1 |
!defined($thing) ? :
|