Branch Coverage

blib/lib/VMware/vCloudDirector2/API.pm
Criterion Covered Total %
branch 63 164 38.4


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) ? :