From: Rafael Kitover <rkitover@cpan.org>
Date: Sat, 9 Apr 2011 19:54:00 +0000 (-0400)
Subject: support for DBD::Firebird
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7e5fd18a414d3e3a29dbfb68039fc50b452f2ce;p=dbsrgits%2FDBIx-Class-Historic.git

support for DBD::Firebird
---

diff --git a/Changes b/Changes
index c688417..789ce72 100644
--- a/Changes
+++ b/Changes
@@ -8,6 +8,7 @@ Revision history for DBIx::Class
           prepare_cached useful across paged resutsets
         - Support for MS Access databases via DBD::ODBC and DBD::ADO (only
           Win32 support currently tested)
+        - Support for the Firebird RDBMS over the new DBD::Firebird driver
         - IC::DateTime support for MSSQL over DBD::ADO
         - Both the ::ODBC and ::ADO dispatchers now warn if a rdbms-specific
           driver is not found for this connection before falling back to
diff --git a/lib/DBIx/Class/Storage/DBI/Firebird.pm b/lib/DBIx/Class/Storage/DBI/Firebird.pm
new file mode 100644
index 0000000..b745581
--- /dev/null
+++ b/lib/DBIx/Class/Storage/DBI/Firebird.pm
@@ -0,0 +1,31 @@
+package DBIx::Class::Storage::DBI::Firebird;
+
+use strict;
+use warnings;
+use base qw/DBIx::Class::Storage::DBI::InterBase/;
+use mro 'c3';
+
+=head1 NAME
+
+DBIx::Class::Storage::DBI::Firebird - Driver for the Firebird RDBMS via
+L<DBD::Firebird>
+
+=head1 DESCRIPTION
+
+This is an empty subclass of L<DBIx::Class::Storage::DBI::InterBase> for use
+with L<DBD::Firebird>, see that driver for details.
+
+=cut
+
+1;
+
+=head1 AUTHOR
+
+See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
+
+=head1 LICENSE
+
+You may distribute this code under the same terms as Perl itself.
+
+=cut
+# vim:sts=2 sw=2:
diff --git a/t/750firebird.t b/t/750firebird.t
index 26927bf..84c0929 100644
--- a/t/750firebird.t
+++ b/t/750firebird.t
@@ -12,6 +12,13 @@ use Scope::Guard ();
 my ($dsn, $user, $pass)    = @ENV{map { "DBICTEST_FIREBIRD_${_}" }      qw/DSN USER PASS/};
 my ($dsn2, $user2, $pass2) = @ENV{map { "DBICTEST_FIREBIRD_ODBC_${_}" } qw/DSN USER PASS/};
 
+# Example DSNs:
+# dbi:InterBase:db=/var/lib/firebird/2.5/data/hlaghdb.fdb
+# dbi:Firebird:db=/var/lib/firebird/2.5/data/hlaghdb.fdb
+
+# Example ODBC DSN:
+# dbi:ODBC:Driver=Firebird;Dbname=/var/lib/firebird/2.5/data/hlaghdb.fdb
+
 plan skip_all => <<'EOF' unless $dsn || $dsn2;
 Set $ENV{DBICTEST_FIREBIRD_DSN} and/or $ENV{DBICTEST_FIREBIRD_ODBC_DSN},
 _USER and _PASS to run these tests.