lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm

   1 package # hide from PAUSE
   2   DBIx::Class::Storage::DBI::SQLAnywhere;
   3
   4 use strict;
   5 use warnings;
   6 use base qw/DBIx::Class::Storage::DBI/;
   7 use mro 'c3';
   8
   9 sub _rebless {
  10   my $self = shift;
  11
  12   if (ref $self eq __PACKAGE__) {
  13     require DBIx::Class::Storage::DBI::Sybase::ASA;
  14     bless $self, 'DBIx::Class::Storage::DBI::Sybase::ASA';
  15     $self->_rebless;
  16   }
  17 }
  18
  19 1;