use base qw/DBIx::Class::Storage::DBI/;
use mro 'c3';
+use Try::Tiny;
sub _rebless {
my ($self) = @_;
- my $version = eval { $self->_get_dbh->get_info(18); };
+ my $caught;
+ my $version;
+ try { $self->_get_dbh->get_info(18); }
+ catch { $caught = 1 };
- if ( !$@ ) {
+ if ( ! $caught ) {
my ($major, $minor, $patchlevel) = split(/\./, $version);
# Default driver
DBIx::Class::Storage::DBI::Oracle - Base class for Oracle driver
-=head1 SYNOPSIS
-
- # In your table classes
- __PACKAGE__->load_components(qw/Core/);
-
=head1 DESCRIPTION
This class simply provides a mechanism for discovering and loading a sub-class