| blib/lib/DateTime/Format/RFC3501.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 20 | 65.0 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 2 | 0 | unless ref $self |
| 37 | 0 | 2 | unless my($D, $M, $Y) = $str =~ s/^([ ]\d|\d{2})-([A-Z][a-z]{2})-(\d{4})// && (0 + $1, $2, 0 + $3) |
| 40 | 0 | 2 | unless $str =~ s/^ // |
| 43 | 0 | 2 | unless my($h, $m, $s) = $str =~ s/^(\d{2}):(\d{2}):(\d{2})// && (0 + $1, 0 + $2, 0 + $3) |
| 46 | 0 | 2 | unless $str =~ s/^ // |
| 50 | 2 | 0 | if ($str =~ s/^([+-])(\d{4})//) { } |
| 57 | 0 | 2 | unless $str =~ /^\z/ |
| 76 | 2 | 5 | if ($dt->time_zone->is_utc) { } |
| 80 | 2 | 3 | $secs < 0 ? : |
| 83 | 1 | 4 | if ($secs) { } |