lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm

   1 package DBIx::Class::Storage::DBI::ODBC::Firebird;
   2
   3 use strict;
   4 use warnings;
   5 use base qw/DBIx::Class::Storage::DBI::InterBase/;
   6 use mro 'c3';
   7
   8 =head1 NAME
   9
  10 DBIx::Class::Storage::DBI::ODBC::Firebird - Driver for using the Firebird RDBMS
  11 through ODBC
  12
  13 =head1 SYNOPSIS
  14
  15 All functionality is provided by L<DBIx::Class::Storage::DBI::Interbase>, see
  16 that module for details.
  17
  18 =cut
  19
  20 # RETURNING ("foo") is broken in ODBC, but RETURNING (foo) works
  21 sub _quote_column_for_returning {
  22   return $_[1];
  23 }
  24
  25 sub datetime_parser_type { __PACKAGE__ }
  26
  27 my $datetime_parser;
  28
  29 sub parse_datetime {
  30     shift;
  31     require DateTime::Format::Strptime;
  32     $datetime_parser ||= DateTime::Format::Strptime->new(
  33         pattern => '%F %H:%M:%S',
  34         on_error => 'croak',
  35     );
  36     $datetime_parser->parse_datetime(shift);
  37 }
  38
  39 1;
  40
  41 =head1 AUTHOR
  42
  43 See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
  44
  45 =head1 LICENSE
  46
  47 You may distribute this code under the same terms as Perl itself.
  48
  49 =cut