Acme::BeyondPerl::ToSQL::mysql - MySQL support for Acme::BeyondPerl::ToSQL

Acme-BeyondPerl-ToSQL documentation Contained in the Acme-BeyondPerl-ToSQL distribution.

Index

Code Index:

NAME

Top

Acme::BeyondPerl::ToSQL::mysql - MySQL support for Acme::BeyondPerl::ToSQL

SYNOPSIS

Top

 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:mysql:dbname=$dbname;host=$host", $user, $pass);

 # or 

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

DESCRIPTION

Top

This module implements a MySQL version for Acme::BeyondPerl::ToSQL. You don't need to use this module directly.

SEE ALSO

Top

Acme::BeyondPerl::ToSQL,

PostgreSQL

AUTHOR

Top

Makamaka Hannyaharamitu, <makamaka[at]cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright 2005 by Makamaka Hannyaharamitu

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Acme-BeyondPerl-ToSQL documentation Contained in the Acme-BeyondPerl-ToSQL distribution. 
package Acme::BeyondPerl::ToSQL::mysql;

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

our $VERSION = 0.01;

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

package Acme::BeyondPerl::ToSQL::mysql::__Integer;

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

sub as_sql { ${$_[0]}; }

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

package Acme::BeyondPerl::ToSQL::mysql::__Float;

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

sub as_sql {  ${$_[0]}; }


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