X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FOracle%2FWhereJoins.pm;h=730c73b7339fa8c45d0ce3ef6f4dd2cff15671b9;hb=a89c6fc05a07aac7f7b4c2b115a12e10aab7fd05;hp=cd1f7dafa3d080cab25aa23d316cd9d6300c7959;hpb=67bdc1effc1519258ccec54e620e23ea6ce20588;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm b/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm
index cd1f7da..730c73b 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm
@@ -5,8 +5,11 @@ use base qw( DBIx::Class::Storage::DBI::Oracle::Generic );
 use strict;
 use warnings;
 
+__PACKAGE__->sql_maker_class('DBIC::SQL::Abstract::Oracle');
+
 BEGIN {
-  package DBIC::SQL::Abstract::Oracle;
+  package # Hide from PAUSE
+    DBIC::SQL::Abstract::Oracle;
 
   use base qw( DBIC::SQL::Abstract );
 
@@ -91,18 +94,6 @@ BEGIN {
   }
 }
 
-sub sql_maker {
-  my ($self) = @_;
-
-  unless ($self->_sql_maker) {
-    $self->_sql_maker(
-      new DBIC::SQL::Abstract::Oracle( $self->_sql_maker_args )
-    );
-  }
-
-  return $self->_sql_maker;
-}
-
 1;
 
 __END__