sub _rebless {
my ($self) = @_;
- my $caught;
- my $version;
- try { $self->_get_dbh->get_info(18); }
- catch { $caught = 1 };
-
- if ( ! $caught ) {
- 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;
- }
+ try {
+ my $version = $self->_get_dbh->get_info(18);
+
+ 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;
+ };
}
1;