1 package DBIx::Class::Storage::DBI::Sybase;
6 use base qw/DBIx::Class::Storage::DBI::NoBindVars/;
11 my $dbh = $self->schema->storage->dbh;
12 my $DBMS_VERSION = @{$dbh->selectrow_arrayref(qq{sp_server_info \@attribute_id=1})}[2];
13 if ($DBMS_VERSION =~ /^Microsoft /i) {
14 my $subclass = 'DBIx::Class::Storage::DBI::Sybase::MSSQL';
15 if ($self->load_optional_class($subclass) && !$self->isa($subclass)) {
16 bless $self, $subclass;
26 DBIx::Class::Storage::DBI::Sybase - Storage::DBI subclass for Sybase
30 This subclass supports L<DBD::Sybase> for real Sybase databases. If
31 you are using an MSSQL database via L<DBD::Sybase>, see
32 L<DBIx::Class::Storage::DBI::Sybase::MSSQL>.
36 Brandon L Black <blblack@gmail.com>
38 Justin Hunter <justin.d.hunter@gmail.com>
42 You may distribute this code under the same terms as Perl itself.