Condition Coverage

blib/lib/AWS/S3/Signer/V4.pm
Criterion Covered Total %
condition 44 76 57.8


and 3 conditions

line !l l&&!r l&&r condition
112 31 0 0 ref $args{'-security_token'} and $args{'-security_token'}->can("access_key_id")
217 2 2 2 ref $arg1 and UNIVERSAL::isa($arg1, "HTTP::Request")
429 11 23 1 scalar @params == 0 and defined $uri->query
34 0 1 scalar @params == 0 and defined $uri->query and $uri->query ne ""

or 2 conditions

line l !l condition
205 2 4 $verb ||= "GET"
291 0 31 $self->{'service'} || 's3'
292 0 31 $self->{'region'} || 'us-east-1'
334 96 96 $region ||= "us-east-1"
420 29 6 $uri->path || '/'

or 3 conditions

line l !l&&r !l&&!r condition
120 31 0 0 $args{'-access_key'} || $ENV{'EC2_ACCESS_KEY'}
0 31 0 $id ||= $args{'-access_key'} || $ENV{'EC2_ACCESS_KEY'}
123 31 0 0 $args{'-secret_key'} || $ENV{'EC2_SECRET_KEY'}
0 31 0 $secret ||= $args{'-secret_key'} || $ENV{'EC2_SECRET_KEY'}
125 0 0 31 $args{'-region'} || $ENV{'EC2_REGION'}
126 0 0 31 $args{'-service'} || $ENV{'EC2_SERVICE'}
137 0 31 0 ref $self || $self
222 0 2 0 $request->header('X-Amz-Date') || $request->header('Date')
229 2 4 0 $uri ||= "URI"->new($arg1)
230 4 0 2 $uri->query_param_delete('Date') || $uri->query_param_delete('X-Amz-Date')
291 10 31 0 $service ||= $self->{'service'} || 's3'
292 10 31 0 $region ||= $self->{'region'} || 'us-east-1'
319 192 192 0 $region ||= $3
324 96 96 0 $region ||= $1
339 0 2 0 $region ||= $1
344 96 97 0 $region ||= $2
369 58 24 0 $request->header('x-amz-date') || $self->_zulu_time($request)
423 30 5 0 $hashed_payload ||= &sha256_hex($request->content)