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; |