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 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 =cut
  23
  24 # XXX seemingly no equivalent to ib_time_all from DBD::InterBase via ODBC
  25 sub connect_call_datetime_setup { 1 }
  26
  27 # we don't need DBD::InterBase-specific initialization
  28 sub _init { 1 }
  29
  30 # ODBC uses dialect 3 by default, good
  31 sub _set_sql_dialect { 1 }
  32
  33 # releasing savepoints doesn't work, but that shouldn't matter
  34 sub _svp_release { 1 }
  35
  36 sub datetime_parser_type {
  37   'DBIx::Class::Storage::DBI::ODBC::Firebird::DateTime::Format'
  38 }
  39
  40 package # hide from PAUSE
  41   DBIx::Class::Storage::DBI::ODBC::Firebird::DateTime::Format;
  42
  43 # inherit parse/format date
  44 our @ISA = 'DBIx::Class::Storage::DBI::InterBase::DateTime::Format';
  45
  46 my $timestamp_format = '%Y-%m-%d %H:%M:%S'; # %F %T, no fractional part
  47 my $timestamp_parser;
  48
  49 sub parse_datetime {
  50   shift;
  51   require DateTime::Format::Strptime;
  52   $timestamp_parser ||= DateTime::Format::Strptime->new(
  53     pattern  => $timestamp_format,
  54     on_error => 'croak',
  55   );
  56   return $timestamp_parser->parse_datetime(shift);
  57 }
  58
  59 sub format_datetime {
  60   shift;
  61   require DateTime::Format::Strptime;
  62   $timestamp_parser ||= DateTime::Format::Strptime->new(
  63     pattern  => $timestamp_format,
  64     on_error => 'croak',
  65   );
  66   return $timestamp_parser->format_datetime(shift);
  67 }
  68
  69 1;
  70
  71 =head1 CAVEATS
  72
  73 =over 4
  74
  75 =item *
  76
  77 This driver (unlike L<DBD::InterBase>) does not currently support reading or
  78 writing C<TIMESTAMP> values with sub-second precision.
  79
  80 =back
  81
  82 =head1 AUTHOR
  83
  84 See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
  85
  86 =head1 LICENSE
  87
  88 You may distribute this code under the same terms as Perl itself.
  89
  90 =cut