X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FInterBase.pm;h=4af0dddaffc8653349dea3f37995c7ce8ac64085;hb=fd323bf1046faa7de5a8c985268d80ec5b703361;hp=4c4217a1d2d1426982679b69cf165f57da3b16eb;hpb=9908375297ff0489a6f7dfd1d03d9dd189c2e11a;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/InterBase.pm b/lib/DBIx/Class/Storage/DBI/InterBase.pm
index 4c4217a..4af0ddd 100644
--- a/lib/DBIx/Class/Storage/DBI/InterBase.pm
+++ b/lib/DBIx/Class/Storage/DBI/InterBase.pm
@@ -6,6 +6,7 @@ use base qw/DBIx::Class::Storage::DBI/;
 use mro 'c3';
 use List::Util();
 use Try::Tiny;
+use namespace::clean;
 
 =head1 NAME
 
@@ -40,13 +41,13 @@ sub _sequence_fetch {
   }
 
   $self->throw_exception('No sequence to fetch') unless $sequence;
-  
+
   my ($val) = $self->_get_dbh->selectrow_array(
 'SELECT GEN_ID(' . $self->sql_maker->_quote($sequence) .
 ', 1) FROM rdb$database');
 
   return $val;
-} 
+}
 
 sub _dbh_get_autoinc_seq {
   my ($self, $dbh, $source, $col) = @_;