1 package DBIx::Class::Storage::DBI::Sybase;
6 use base qw/DBIx::Class::Storage::DBI::NoBindVars/;
11 my $dbtype = eval { @{$self->_dbh->selectrow_arrayref(qq{sp_server_info \@attribute_id=1})}[2] };
14 my $subclass = "DBIx::Class::Storage::DBI::Sybase::${dbtype}";
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.