use namespace::clean;
sub _rebless {
- my ($self) = @_;
+ my ($self) = @_;
- try {
- my $version = $self->_get_dbh->get_info(18);
+ # Default driver
+ my $class = $self->_server_info->{normalized_dbms_version} <= 8
+ ? 'DBIx::Class::Storage::DBI::Oracle::WhereJoins'
+ : 'DBIx::Class::Storage::DBI::Oracle::Generic';
- my ($major, $minor, $patchlevel) = split(/\./, $version);
-
- # Default driver
- my $class = $major <= 8
- ? 'DBIx::Class::Storage::DBI::Oracle::WhereJoins'
- : 'DBIx::Class::Storage::DBI::Oracle::Generic';
-
- $self->ensure_class_loaded ($class);
- bless $self, $class;
- };
+ $self->ensure_class_loaded ($class);
+ bless $self, $class;
}
1;