X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FOracle.pm;h=a0961086fa7266f7f868baa02acaf3780ed4cdbe;hb=12a184d0a0c1868708e43aaabefe08f9e7ac9ec4;hp=722c62474031b473d9dc3f3bef052633a64954e9;hpb=bf51641f97a504ae9796fcc45da4e409c6466ca4;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Storage/DBI/Oracle.pm b/lib/DBIx/Class/Storage/DBI/Oracle.pm index 722c624..a096108 100644 --- a/lib/DBIx/Class/Storage/DBI/Oracle.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle.pm @@ -5,14 +5,12 @@ use warnings; use base qw/DBIx::Class::Storage::DBI/; use mro 'c3'; -use Try::Tiny; -use namespace::clean; sub _rebless { my ($self) = @_; # Default driver - my $class = $self->_server_info->{normalized_dbms_version} <= 8 + my $class = $self->_server_info->{normalized_dbms_version} < 9 ? 'DBIx::Class::Storage::DBI::Oracle::WhereJoins' : 'DBIx::Class::Storage::DBI::Oracle::Generic'; @@ -31,7 +29,7 @@ DBIx::Class::Storage::DBI::Oracle - Base class for Oracle driver This class simply provides a mechanism for discovering and loading a sub-class for a specific version Oracle backend. It should be transparent to the user. -For Oracle major versions <= 8 it loads the ::Oracle::WhereJoins subclass, +For Oracle major versions < 9 it loads the ::Oracle::WhereJoins subclass, which unrolls the ANSI join style DBIC normally generates into entries in the WHERE clause for compatibility purposes. To force usage of this version no matter the database version, add @@ -40,12 +38,13 @@ no matter the database version, add to your Schema class. -=head1 AUTHORS +=head1 FURTHER QUESTIONS? -David Jack Olrik C<< >> +Check the list of L. -=head1 LICENSE +=head1 COPYRIGHT AND LICENSE -You may distribute this code under the same terms as Perl itself. - -=cut +This module is free software L +by the L. You can +redistribute it and/or modify it under the same terms as the +L.