Fix missing true return lost during e5a62c46f

[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 f0178bd..e615eb0 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/Firebird.pm
+++ b/lib/DBIx/Class/Storage/DBI/Firebird.pm
@@ -8,9 +8,10 @@ use warnings;
 # 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
@@ -21,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>.
@@ -33,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: