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 );
}
}
-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__