| blib/lib/URI/Amazon/APA.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 5 | 40.0 |
| line | l | !l | condition |
|---|---|---|---|
| 31 | 1 | 0 | $q{'Version'} ||= '2010-09-01' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 25 | 1 | 0 | 0 | $q{'Timestamp'} ||= do { my($ss, $mm, $hh, $dd, $mo, $yy) = gmtime(); join '', sprintf('%04d-%02d-%02d', $yy + 1900, $mo + 1, $dd), 'T', sprintf('%02d:%02d:%02d', $hh, $mm, $ss), 'Z' } |