Consolidate handling of "is this a literal" and "is this a value"

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

diff --git a/lib/DBIx/Class/Storage/DBI/Firebird.pm b/lib/DBIx/Class/Storage/DBI/Firebird.pm
index b745581..e615eb0 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/Firebird.pm
+++ b/lib/DBIx/Class/Storage/DBI/Firebird.pm
@@ -2,9 +2,16 @@ package DBIx::Class::Storage::DBI::Firebird;
 
 use strict;
 use warnings;
+
+# Because DBD::Firebird is more or less a copy of
+# DBD::Interbase, inherit all the workarounds contained
+# in ::Storage::DBI::InterBase as opposed to inheriting
+# directly from ::Storage::DBI::Firebird::Common
 use base qw/DBIx::Class::Storage::DBI::InterBase/;
 use mro 'c3';
 
+1;
+
 =head1 NAME
 
 DBIx::Class::Storage::DBI::Firebird - Driver for the Firebird RDBMS via
@@ -15,10 +22,6 @@ L<DBD::Firebird>
 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>.
@@ -27,5 +30,3 @@ See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
 
 You may distribute this code under the same terms as Perl itself.
 
-=cut
-# vim:sts=2 sw=2: