fix up my Row code for non-pk autoincs, add pretty crappy DT inflation for Firebird

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / ODBC / Firebird.pm

diff --git a/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm b/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
index fd13a3b..de1388c 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
+++ b/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
@@ -22,6 +22,20 @@ sub _quote_column_for_returning {
   return $_[1];
 }
 
+sub datetime_parser_type { __PACKAGE__ }
+
+my $parser;
+
+sub parse_datetime {
+    shift;
+    require DateTime::Format::Strptime;
+    $parser ||= DateTime::Format::Strptime->new(
+        pattern => '%F %H:%M:%S',
+        on_error => 'croak',
+    );
+    $parser->parse_datetime(shift);
+}
+
 1;
 
 =head1 AUTHOR