1 package # hide from PAUSE
2 DBIx::Class::Storage::DBI::Sybase::DateTime;
6 use DateTime::Format::Strptime;
8 my $inflate_format = DateTime::Format::Strptime->new(
9 pattern => '%Y-%m-%dT%H:%M:%S.%3NZ'
12 my $deflate_format = DateTime::Format::Strptime->new(
13 pattern => '%m/%d/%Y %H:%M:%S.%3N'
16 sub parse_datetime { shift; $inflate_format->parse_datetime(@_) }
18 sub format_datetime { shift; $deflate_format->format_datetime(@_) }
24 DBIx::Class::Storage::DBI::Sybase::DateTime - DateTime inflation/deflation
25 support for Sybase in L<DBIx::Class>.
29 This needs to become L<DateTime::Format::Sybase>.
33 See L<DBIx::Class/CONTRIBUTORS>.
37 You may distribute this code under the same terms as Perl itself.