| 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 ? :
|