| line |
true |
false |
branch |
|
53
|
17 |
17 |
unless ref $self
|
|
56
|
16 |
18 |
unless my(@values) = $date =~ /^(\d\d\d\d) # Year
|
|
73
|
52 |
92 |
unless defined $values[$i]
|
|
78
|
2 |
7 |
if $self->{'strict'} and $p{'hour'} and not $p{'time_zone'}
|
|
94
|
8 |
8 |
if (not $p{'time_zone'}) { }
|
|
|
2 |
6 |
elsif ($p{'time_zone'} eq 'Z') { }
|
|
100
|
2 |
14 |
if ($p{'fraction'})
|
|
116
|
0 |
7 |
unless ref $self
|
|
124
|
0 |
7 |
if ($dt->nanosecond)
|
|
132
|
0 |
7 |
if $tz->is_utc
|
|
136
|
2 |
5 |
if ($tz->is_floating or not defined $offset)
|
|
138
|
1 |
1 |
if $self->{'strict'}
|
|
157
|
0 |
5 |
unless defined $offset
|
|
159
|
4 |
1 |
$offset < 0 ? :
|
|
169
|
0 |
5 |
$secs ? :
|