Fix some should_quote_data_type problems
[dbsrgits/DBIx-Class-Historic.git] / 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