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

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