|
Lines 143-149
sub dt_from_string {
Link Here
|
| 143 |
} |
143 |
} |
| 144 |
|
144 |
|
| 145 |
# Add the faculative time part [hh:mm[:ss]] |
145 |
# Add the faculative time part [hh:mm[:ss]] |
| 146 |
my $time_re .= qr| |
146 |
my $time_re .= qr{ |
| 147 |
( |
147 |
( |
| 148 |
[Tt]? |
148 |
[Tt]? |
| 149 |
\s* |
149 |
\s* |
|
Lines 158-165
sub dt_from_string {
Link Here
|
| 158 |
\s |
158 |
\s |
| 159 |
(?<ampm>\w{2}) |
159 |
(?<ampm>\w{2}) |
| 160 |
)? |
160 |
)? |
|
|
161 |
( |
| 162 |
(?<utc>[Zz]$)|((?<offset>[\+|\-])(?<hours>[01][0-9]|2[0-3]):(?<minutes>[0-5][0-9])) |
| 163 |
)? |
| 161 |
)? |
164 |
)? |
| 162 |
|xms; |
165 |
}xms; |
| 163 |
$regex .= $time_re unless ( $date_format eq 'rfc3339' ); |
166 |
$regex .= $time_re unless ( $date_format eq 'rfc3339' ); |
| 164 |
$fallback_re .= $time_re; |
167 |
$fallback_re .= $time_re; |
| 165 |
|
168 |
|
|
Lines 175-180
sub dt_from_string {
Link Here
|
| 175 |
second => $+{second}, |
178 |
second => $+{second}, |
| 176 |
); |
179 |
); |
| 177 |
$ampm = $+{ampm}; |
180 |
$ampm = $+{ampm}; |
|
|
181 |
if ( $+{utc} ) { |
| 182 |
$tz = DateTime::TimeZone->new( name => 'UTC' ); |
| 183 |
} |
| 178 |
if ( $+{offset} ) { |
184 |
if ( $+{offset} ) { |
| 179 |
# If offset given, set inbound timezone using it. |
185 |
# If offset given, set inbound timezone using it. |
| 180 |
$tz = DateTime::TimeZone->new( name => $+{offset} . $+{hours} . $+{minutes} ); |
186 |
$tz = DateTime::TimeZone->new( name => $+{offset} . $+{hours} . $+{minutes} ); |
| 181 |
- |
|
|