File Coverage

blib/lib/SQL/SqlObject/ODBC.pm

Criterion	Covered	Total	%
statement	13	22	59.0
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	18	32	56.2

package SQL::SqlObject::ODBC;

use strict;
use warnings;
use SQL::SqlObject;
use base 'SQL::SqlObject';

# additional/redefined args
SQL::SqlObject::Config::set DSN         => 'dbi:ODBC';
#SQL::SqlObject::Config::set NAME_PREFIX => '';

# initilization ruitine
sub _init { shift->db_name_prefix = '' }

# overload the hash quoting mechinism.
#   -ODBC wants it's numeric values quoted. (ECE)
sub _sql_quote_hash
  {
    Carp::confess "sql_quote_hash: No hash ref specified" unless @_ > 1;
    my ($self, $href) = @_;
    while ( my ($k,$v) = each %$href) {
      $v =~ s|^'||;   # Remove initial and final quotes, just in case.
      $v =~ s|'$||;
      $v =~ s|'|''|g; # Double the single-quotes in the string
      $v =~ s|"|""|g; # Double the double-quotes in the string
      $v =  qq('$v') unless $v =~ /^null$/;
      $href->{$k}=$v;
    }
}

1;
__END__