lib/DBIx/Class/Storage/DBI/Sybase/DateTime.pm

   1 package # hide from PAUSE
   2     DBIx::Class::Storage::DBI::Sybase::DateTime;
   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;