Acme::BeyondPerl::ToSQL::Pg - PostgreSQL support for Acme::BeyondPerl::ToSQL

 my $dbname;
 my $host;
 my $user;
 my $pass;

 BEGIN{
   $dbname = 'acme_db';
   $host   = '127.0.0.1';
   $user   = 'foo';
   $pass   = 'bar';
 }

 use Acme::BeyondPerl::ToSQL ("dbi:Pg:dbname=$dbname;host=$host", $user, $pass);

 # or 

 use Acme::BeyondPerl::ToSQL ({
     dbi => ["dbi:Pg:dbname=$dbname;host=$host", $user, $pass],
     debug => 1
 });

package Acme::BeyondPerl::ToSQL::Pg;

use strict;
use base qw(Acme::BeyondPerl::ToSQL);

our $VERSION = 0.01;

sub xor {
	my ($x, $y) = Acme::BeyondPerl::ToSQL::_get_args_as_bits(@_);
	Acme::BeyondPerl::ToSQL::_calc_by_rdbm("SELECT $x # $y");
}

##############################################################################
#
##############################################################################

package Acme::BeyondPerl::ToSQL::Pg::__Integer;

use base qw(Acme::BeyondPerl::ToSQL::Pg);

sub as_sql { 'CAST(' . ${$_[0]} . ' AS double precision)'; }

#sub as_bit { ${$_[0]}; }

##############################################################################
#
##############################################################################

package Acme::BeyondPerl::ToSQL::Pg::__Float;

use base qw(Acme::BeyondPerl::ToSQL::Pg);

sub as_sql { 'CAST(' . ${$_[0]} . ' AS double precision)'; }

#sub as_bit { ${$_[0]}; }

##############################################################################
1;
__END__