blib/lib/URI/Amazon/APA.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 8 | 37.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
16 | 1 | 0 | 0 | $self->scheme eq 'https' and $self->port == 443 |
line | l | !l | condition |
---|---|---|---|
33 | 1 | 0 | $q{'Version'} ||= '2010-09-01' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
27 | 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' } |