use warnings;
use base qw/DBIx::Class::Storage::DBI/;
+use mro 'c3';
sub _rebless {
my ($self) = @_;
- my $version = eval { $self->_dbh->get_info(18); };
+ my $version = eval { $self->dbh->get_info(18); };
if ( !$@ ) {
my ($major, $minor, $patchlevel) = split(/\./, $version);
}
}
-sub _svp_begin {
- my ($self, $dbh, $name) = @_;
-
- $dbh->do("SAVEPOINT $name");
-}
-
-# Would've implemented _svp_release here, but Oracle doesn't support it.
-
-sub _svp_rollback {
- my ($self, $dbh, $name) = @_;
-
- $dbh->do("ROLLBACK TO SAVEPOINT $name")
-}
-
1;
=head1 NAME