Branch Coverage

lib/Amazon/S3/Bucket.pm

Criterion	Covered	Total	%
branch	0	182	0.0

line	true	false	branch
41	0	0	ref $args[0] ? :
46	0	0	unless $self->bucket
49	0	0	unless $self->account
52	0	0	unless ($self->logger)
57	0	0	if (not $self->region and $self->verify_region) { }
	0	0	elsif (not $self->region) { }
60	0	0	unless ($self->account->err)
81	0	0	if ($key)
87	0	0	$key ? :
92	0	0	if ($account->dns_bucket_names)
104	0	0	unless $key and length $key
109	0	0	if ($conf->{'acl_short'})
117	0	0	if (ref $value and &reftype($value) eq 'SCALAR') { }
157	0	0	if ($Amazon::S3::Bucket::EVAL_ERROR)
160	0	0	if ($rsp->code eq $Amazon::S3::Bucket::HTTP_MOVED_PERMANENTLY)
183	0	0	if (ref $data) { }
222	0	0	if (@args == 1 and &reftype($args[0]) eq 'HASH') { }
230	0	0	unless $parameters{'key'}
233	0	0	unless $parameters{'data'} or $parameters{'callback'} or $parameters{'fh'}
236	0	0	if $parameters{'callback'} and &reftype($parameters{'callback'}) ne "CODE"
241	0	0	unless ($parameters{'callback'} or $parameters{'fh'})
243	0	0	ref $parameters{'data'} ? :
249	0	0	if ($parameters{'fh'})
259	0	0	if $length < $Amazon::S3::Bucket::MIN_MULTIPART_UPLOAD_CHUNK_SIZE
267	0	0	($parameters{'chunk_size'} && $parameters{'chunk_size'}) > $Amazon::S3::Bucket::MIN_MULTIPART_UPLOAD_CHUNK_SIZE ? :
271	0	0	unless $length
275	0	0	$length >= $chunk_size ? :
309	0	0	unless $buffer
325	0	0	if ($Amazon::S3::Bucket::EVAL_ERROR and $parameters{'abort_on_error'})
343	0	0	unless $key
380	0	0	if (@args == 1) { }
381	0	0	if (&reftype($args[0]) eq 'HASH') { }
	0	0	elsif (&reftype($args[0]) eq 'ARRAY') { }
394	0	0	if (ref $data)
400	0	0	unless $key
403	0	0	unless $upload_id
406	0	0	unless $part_number
441	0	0	if ($etag)
482	0	0	unless $key
485	0	0	unless $upload_id
488	0	0	if ref $parts_hr ne "HASH"
524	0	0	unless ($response->code =~ /\A2\d\d\z/msx)
540	0	0	unless $key
543	0	0	unless $upload_id
572	0	0	unless $key
575	0	0	unless $upload_id
639	0	0	if (ref $filename)
659	0	0	if $response->code eq $Amazon::S3::Bucket::HTTP_NOT_FOUND
666	0	0	if ($etag)
679	0	0	if ($method eq "GET")
683	0	0	$filename && -f $filename ? :
687	0	0	if $md5 ne lc $etag
692	0	0	unless $header =~ /x-amz-meta-/imsx
704	0	0	unless (defined $filename)
729	0	0	if (&reftype($headers_in) eq 'ARRAY') { }
	0	0	elsif (&reftype($headers_in) eq 'HASH') { }
736	0	0	if not ref $headers_in or &reftype($headers_in) ne "HASH"
741	0	0	unless $source or exists $request_headers{'x-amz-copy-source'}
743	0	0	unless $key
748	0	0	unless ($request_headers{'x-amz-copy-source'})
763	0	0	unless ($response->code =~ /\A2\d\d\z/msx)
776	0	0	if not $key and length $key
797	0	0	if (ref $args[0]) { }
	0	0	elsif (@args) { }
798	0	0	if (&reftype($args[0]) eq 'ARRAY') { }
	0	0	elsif (&reftype($args[0]) eq 'CODE') { }
800	0	0	if (ref $key and &reftype($key) eq 'HASH') { }
806	0	0	defined $key->{'VersionId'} ? :
817	0	0	unless @object and defined $object[0]
819	0	0	defined $object[1] ? :
837	0	0	if @keys > $Amazon::S3::Bucket::MAX_DELETE_KEYS
857	0	0	if (ref $args[0] and &reftype($args[0]) eq 'HASH') { }
865	0	0	if (defined $quiet_mode) { }
866	0	0	$quiet_mode ? :
909	0	0	if @_ > 1
925	0	0	if ($conf->{'marker'})
988	0	0	if ($response->code =~ /^30/msx)
1012	0	0	if ($response->code ne $Amazon::S3::Bucket::HTTP_NOT_FOUND)
1028	0	0	unless $conf->{'acl_xml'} or $conf->{'acl_short'}
1031	0	0	if $conf->{'acl_xml'} and $conf->{'acl_short'}
1037	0	0	if ($conf->{'acl_short'})
1073	0	0	unless ($xpc)
1074	0	0	if $account->_remember_errors($xpc)
1082	0	0	if (defined $lc and $lc eq $Amazon::S3::Bucket::EMPTY)
1133	0	0	unless -r $filename and $remaining
1136	0	0	unless my $fh = "IO::File"->new($filename, "r")
1145	0	0	unless ($fh->opened)
1146	0	0	unless $fh = "IO::File"->new($filename, "r")
1156	0	0	unless ($read)
1157	0	0	if $Amazon::S3::Bucket::OS_ERROR and $remaining
1161	0	0	unless $fh->close