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 DESCRIPTION
  14
  15 Most functionality is provided by L<DBIx::Class::Storage::DBI::Interbase>, see
  16 that module for details.
  17
  18 To build the ODBC driver for Firebird on Linux for unixODBC, see:
  19
  20 L<http://www.firebirdnews.org/?p=1324>
  21
  22 This driver does not suffer from the nested statement handles across commits
  23 issue that the L<DBD::InterBase|DBIx::Class::Storage::DBI::InterBase> based
  24 driver does. This makes it more suitable for long running processes such as
  25 under L<Catalyst>.
  26
  27 =cut
  28
  29 # XXX seemingly no equivalent to ib_time_all from DBD::InterBase via ODBC
  30 sub connect_call_datetime_setup { 1 }
  31
  32 # we don't need DBD::InterBase-specific initialization
  33 sub _init { 1 }
  34
  35 # ODBC uses dialect 3 by default, good
  36 sub _set_sql_dialect { 1 }
  37
  38 # releasing savepoints doesn't work, but that shouldn't matter
  39 sub _svp_release { 1 }
  40
  41 sub _populate_server_info {
  42   goto &DBIx::Class::Storage::DBI::_populate_server_info
  43 }
  44
  45 sub datetime_parser_type {
  46   'DBIx::Class::Storage::DBI::ODBC::Firebird::DateTime::Format'
  47 }
  48
  49 package # hide from PAUSE
  50   DBIx::Class::Storage::DBI::ODBC::Firebird::DateTime::Format;
  51
  52 # inherit parse/format date
  53 our @ISA = 'DBIx::Class::Storage::DBI::InterBase::DateTime::Format';
  54
  55 my $timestamp_format = '%Y-%m-%d %H:%M:%S'; # %F %T, no fractional part
  56 my $timestamp_parser;
  57
  58 sub parse_datetime {
  59   shift;
  60   require DateTime::Format::Strptime;
  61   $timestamp_parser ||= DateTime::Format::Strptime->new(
  62     pattern  => $timestamp_format,
  63     on_error => 'croak',
  64   );
  65   return $timestamp_parser->parse_datetime(shift);
  66 }
  67
  68 sub format_datetime {
  69   shift;
  70   require DateTime::Format::Strptime;
  71   $timestamp_parser ||= DateTime::Format::Strptime->new(
  72     pattern  => $timestamp_format,
  73     on_error => 'croak',
  74   );
  75   return $timestamp_parser->format_datetime(shift);
  76 }
  77
  78 1;
  79
  80 =head1 CAVEATS
  81
  82 =over 4
  83
  84 =item *
  85
  86 This driver (unlike L<DBD::InterBase>) does not currently support reading or
  87 writing C<TIMESTAMP> values with sub-second precision.
  88
  89 =back
  90
  91 =head1 AUTHOR
  92
  93 See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
  94
  95 =head1 LICENSE
  96
  97 You may distribute this code under the same terms as Perl itself.
  98
  99 =cut