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

   1 package DBIx::Class::Storage::DBI::Sybase;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/DBIx::Class::Storage::DBI::NoBindVars/;
   7
   8 my %noquote = map { $_ => 1 } qw(int integer);
   9
  10 sub should_quote_data_type {
  11   my $self = shift;
  12   my ($type) = @_;
  13   return 0 if $noquote{$type};
  14   return $self->next::method(@_);
  15 }
  16
  17 1;
  18
  19 =head1 NAME
  20
  21 DBIx::Class::Storage::DBI::Sybase - Storage::DBI subclass for Sybase
  22
  23 =head1 SYNOPSIS
  24
  25 This subclass supports L<DBD::Sybase> for real Sybase databases.  If
  26 you are using an MSSQL database via L<DBD::Sybase>, see
  27 L<DBIx::Class::Storage::DBI::Sybase::MSSQL>.
  28
  29 =head1 AUTHORS
  30
  31 Brandon L Black <blblack@gmail.com>
  32
  33 =head1 LICENSE
  34
  35 You may distribute this code under the same terms as Perl itself.
  36
  37 =cut