| blib/lib/WebService/S3/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| condition | 23 | 37 | 62.1 | 
| line | !l | l&&!r | l&&r | condition | 
|---|---|---|---|---|
| 170 | 2 | 101 | 0 | $part ne '.' and length $part || $_ == $#old_parts | 
| line | l | !l | condition | 
|---|---|---|---|
| 15 | 4 | 0 | $args{'access_key'} // croak('"access_key" is required') | 
| 16 | 4 | 0 | $args{'host'} // croak('"host" is required') | 
| 17 | 1 | 3 | $args{'region'} //= 'us-east-1' | 
| 18 | 4 | 0 | $args{'secret_key'} // croak('"secret_key" is requried') | 
| 19 | 1 | 3 | $args{'service'} //= 's3' | 
| 37 | 30 | 0 | $headers //= {} | 
| 42 | 29 | 1 | $query // {} | 
| 47 | 30 | 0 | $content // '' | 
| 89 | 1 | 0 | $expires //= 604800 | 
| 91 | 0 | 1 | $headers //= {} | 
| 104 | 0 | 1 | $query // {} | 
| line | l | !l&&r | !l&&!r | condition | 
|---|---|---|---|---|
| 20 | 0 | 4 | 0 | $args{'ua'} //= 'HTTP::Tiny'->new | 
| 47 | 0 | 30 | 0 | $headers->{'x-amz-content-sha256'} //= &sha256_hex($content // '') | 
| 127 | 2 | 29 | 0 | $object // () | 
| 170 | 14 | 24 | 63 | length $part || $_ == $#old_parts |