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

   1 package # hide from PAUSE
   2     DBIx::Class::Storage::DBI::Sybase::Base;
   3
   4 use strict;
   5 use warnings;
   6
   7 use base qw/DBIx::Class::Storage::DBI/;
   8 use mro 'c3';
   9
  10 =head1 NAME
  11
  12 DBIx::Class::Storage::DBI::Sybase::Base - Common functionality for drivers using
  13 DBD::Sybase
  14
  15 =cut
  16
  17 sub _ping {
  18   my $self = shift;
  19
  20   my $dbh = $self->_dbh or return 0;
  21
  22   local $dbh->{RaiseError} = 1;
  23   eval {
  24     $dbh->do('select 1');
  25   };
  26
  27   return $@ ? 0 : 1;
  28 }
  29
  30 sub _placeholders_supported {
  31   my $self = shift;
  32   my $dbh  = $self->_dbh;
  33
  34   return eval {
  35 # There's also $dbh->{syb_dynamic_supported} but it can be inaccurate for this
  36 # purpose.
  37     local $dbh->{PrintError} = 0;
  38 # this specifically tests a bind that is NOT a string
  39     $dbh->selectrow_array('select 1 where 1 = ?', {}, 1);
  40   };
  41 }
  42
  43 1;
  44
  45 =head1 AUTHORS
  46
  47 See L<DBIx::Class/CONTRIBUTORS>.
  48
  49 =head1 LICENSE
  50
  51 You may distribute this code under the same terms as Perl itself.
  52
  53 =cut