[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / SQLAnywhere.pm

package # hide from PAUSE
  DBIx::Class::Storage::DBI::SQLAnywhere;

use strict;
use warnings;
use base qw/DBIx::Class::Storage::DBI/;
use mro 'c3';

sub _rebless {
  my $self = shift;

  if (ref $self eq __PACKAGE__) {
    require DBIx::Class::Storage::DBI::Sybase::ASA;
    bless $self, 'DBIx::Class::Storage::DBI::Sybase::ASA';
    $self->_rebless;
  }
}

1;
Commit	Line	Data
f200d74b	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;