Branch Coverage

blib/lib/WebService/Rackspace/CloudFiles/Object.pm
Criterion Covered Total %
branch 0 84 0.0


line true false branch
98 0 0 $ssl ? :
116 0 0 if $response->code == 404
117 0 0 unless $response->is_success
125 0 0 if (not $force_retrieval and $self->cache_value and defined $self->value) { }
131 0 0 if $response->code == 404
132 0 0 unless $response->is_success
133 0 0 if $response->header("ETag") ne md5_hex($response->content)
136 0 0 if ($self->cache_value)
150 0 0 if (not $force_retrieval and $self->cache_value and defined $self->local_filename and $self->local_filename eq $filename and -e $self->local_filename)
157 0 0 if ($self->etag eq file_md5_hex($filename))
168 0 0 if $response->code == 404
169 0 0 unless $response->is_success
170 0 0 unless $self->_validate_local_file($filename, $response->header("Content-Length"), $response->header("ETag"))
178 0 0 if ($self->cache_value)
191 0 0 if $response->code == 404
192 0 0 if not $response->is_success
201 0 0 if $response->code == 404
202 0 0 if $response->code == 403
203 0 0 if not $response->is_success
220 0 0 if ($response->is_success)
225 0 0 if ($self->cache_value)
230 0 0 if $response->code == 412
232 0 0 if $response->code == 422
233 0 0 if $response->header("ETag") ne $md5_hex
234 0 0 unless $response->is_success
253 0 0 if ($response->is_success)
256 0 0 if ($self->cache_value)
261 0 0 if $response->code == 412
263 0 0 if $response->code == 422
264 0 0 if not defined $response->header("ETag") or $response->header("ETag") ne $md5_hex
266 0 0 unless $response->is_success
298 0 0 unless $Supported_headers{$header_field}
315 0 0 unless -r $filename and -f _ || $remaining
317 0 0 unless my $fh = "IO::File"->new($filename, "r")
325 0 0 unless ($fh->opened)
326 0 0 unless $fh = "IO::File"->new($filename, "r")
333 0 0 unless (my $read = $fh->read($buffer, $blksize))
336 0 0 if $! and $remaining
341 0 0 unless $fh->close
360 0 0 if ($headername =~ /^x-object-meta-(.*)/i)
378 0 0 if ($size != $localsize)
382 0 0 if ($self->always_check_etag and $md5 ne file_md5_hex($localfile))