| line |
true |
false |
branch |
|
23
|
8 |
9 |
unless my(@values) = $date =~ /^(\d\d\d\d) # Year
(?:-(\d\d) # -Month
(?:-(\d\d) # -Day
(?:T
(\d\d):(\d\d) # Hour:Minute
(?:
:(\d\d) # :Second
(\.\d+)? # .Fractional_Second
)?
( Z # UTC
| [+-]\d\d:\d\d # Hour:Minute TZ offset
(?::\d\d)? # :Second TZ offset
)?)?)?)?$/x
|
|
40
|
26 |
46 |
unless defined $values[$i]
|
|
58
|
5 |
4 |
if (not $p{'time_zone'}) { }
|
|
|
1 |
3 |
elsif ($p{'time_zone'} eq 'Z') { }
|
|
64
|
1 |
8 |
if ($p{'fraction'})
|
|
85
|
0 |
5 |
if ($dt->nanosecond)
|
|
93
|
0 |
5 |
if $tz->is_floating
|
|
95
|
0 |
5 |
if $tz->is_utc
|
|
99
|
0 |
5 |
unless defined $offset
|
|
116
|
0 |
5 |
unless defined $offset
|
|
118
|
4 |
1 |
$offset < 0 ? :
|
|
128
|
0 |
5 |
$secs ? :
|