Branch Coverage

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


line true false branch
86 0 0 $ssl ? :
104 0 0 if $response->code == 404
105 0 0 unless $response->is_success
113 0 0 if (not $force_retrieval and $self->cache_value and defined $self->value) { }
119 0 0 if $response->code == 404
120 0 0 if $response->code != 200
121 0 0 if $response->header('ETag') ne md5_hex($response->content)
124 0 0 if ($self->cache_value)
138 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)
145 0 0 if ($self->etag eq file_md5_hex($filename))
156 0 0 if $response->code == 404
157 0 0 if $response->code != 200
158 0 0 unless $self->_validate_local_file($filename, $response->header('Content-Length'), $response->header('ETag'))
166 0 0 if ($self->cache_value)
179 0 0 if $response->code == 404
180 0 0 if $response->code != 204
189 0 0 if $response->code == 404
190 0 0 if $response->code == 403
191 0 0 if $response->code != 204
208 0 0 if ($response->code == 204)
213 0 0 if ($self->cache_value)
218 0 0 if $response->code == 412
220 0 0 if $response->code == 422
221 0 0 if $response->header('ETag') ne $md5_hex
222 0 0 unless $response->is_success
241 0 0 if ($response->code == 204)
244 0 0 if ($self->cache_value)
249 0 0 if $response->code == 412
251 0 0 if $response->code == 422
252 0 0 if not defined $response->header('ETag') or $response->header('ETag') ne $md5_hex
254 0 0 unless $response->is_success
286 0 0 unless $Supported_headers{$header_field}
303 0 0 unless -r $filename and -f _ || $remaining
305 0 0 unless my $fh = 'IO::File'->new($filename, 'r')
313 0 0 unless ($fh->opened)
314 0 0 unless $fh = 'IO::File'->new($filename, 'r')
321 0 0 unless (my $read = $fh->read($buffer, $blksize))
324 0 0 if $! and $remaining
329 0 0 unless $fh->close
348 0 0 if ($headername =~ /^x-object-meta-(.*)/i)
366 0 0 if ($size != $localsize)
370 0 0 if ($self->always_check_etag and $md5 ne file_md5_hex($localfile))