1 package DBIx::Class::Storage::DBI::Oracle;
5 use base qw/DBIx::Class::Storage::DBI/;
10 my $version = eval { $self->_dbh->get_info(18); };
12 my ($major,$minor,$patchlevel) = split(/\./,$version);
15 my $class = "DBIx::Class::Storage::DBI::Oracle::Generic";
17 # Version specific drivers
18 $class = "DBIx::Class::Storage::DBI::Oracle::8"
22 eval "require $class";
23 bless $self, $class unless $@;
32 DBIx::Class::Storage::DBI::Oracle - Base class for Oracle driver
36 # In your table classes
37 __PACKAGE__->load_components(qw/Core/);
41 This class simply provides a mechanism for discovering and loading a sub-class
42 for a specific version Oracle backend. It should be transparent to the user.
47 David Jack Olrik C<< <djo@cpan.org> >>
51 You may distribute this code under the same terms as Perl itself.