line |
true |
false |
branch |
32
|
2 |
0 |
unless ref $self |
35
|
2 |
0 |
unless $self->[0] |
38
|
0 |
2 |
unless my($Y, $M, $D) = $str =~ s/^(\d{4})-(\d{2})-(\d{2})// && (0 + $1, 0 + $2, 0 + $3) |
41
|
0 |
2 |
unless $str =~ s/^T// |
44
|
0 |
2 |
unless my($h, $m, $s) = $str =~ s/^(\d{2}):(\d{2}):(\d{2})// && (0 + $1, 0 + $2, 0 + $3) |
47
|
1 |
1 |
$str =~ s/^\.(\d{1,9})\d*// ? : |
50
|
2 |
0 |
if ($str =~ s/^Z//) { } |
|
0 |
0 |
elsif ($str =~ s/^([+-])(\d{2}):(\d{2})//) { } |
54
|
0 |
2 |
unless $str =~ /^\z/ |
74
|
1 |
4 |
if ($dt->time_zone->is_utc) { } |
78
|
2 |
2 |
$secs < 0 ? : |
81
|
1 |
3 |
if ($secs) { } |
91
|
0 |
5 |
$dt->nanosecond ? : |