Commit | Line | Data |
8698f5a1 |
1 | package # hide from PAUSE |
2 | DBIx::Class::Storage::DBI::Sybase::DateTime; |
0814e804 |
3 | |
4 | use strict; |
5 | use warnings; |
6 | use DateTime::Format::Strptime; |
7 | |
8 | my $inflate_format = DateTime::Format::Strptime->new( |
9 | pattern => '%Y-%m-%dT%H:%M:%S.%3NZ' |
10 | ); |
11 | |
12 | my $deflate_format = DateTime::Format::Strptime->new( |
13 | pattern => '%m/%d/%Y %H:%M:%S.%3N' |
14 | ); |
15 | |
16 | sub parse_datetime { shift; $inflate_format->parse_datetime(@_) } |
17 | |
18 | sub format_datetime { shift; $deflate_format->format_datetime(@_) } |
19 | |
20 | 1; |