package SPOPS::Import::DBI::TableTransform::MySQL;
# $Id: MySQL.pm,v 3.3 2004/06/02 00:48:23 lachoy Exp $
use strict;
use base qw( SPOPS::Import::DBI::TableTransform );
$SPOPS::Import::DBI::TableTransform::MySQL::VERSION = sprintf("%d.%02d", q$Revision: 3.3 $ =~ /(\d+)\.(\d+)/);
sub increment {
my ( $self, $sql ) = @_;
$$sql =~ s/%%INCREMENT%%/INT NOT NULL AUTO_INCREMENT/g;
}
sub increment_type {
my ( $self, $sql ) = @_;
$$sql =~ s/%%INCREMENT_TYPE%%/INT/g;
}
sub datetime {
my ( $self, $sql ) = @_;
$$sql =~ s/%%DATETIME%%/DATETIME/g;
}
1;
__END__
=head1 NAME
SPOPS::Import::DBI::TableTransform::MySQL - Table transformations for MySQL
=head1 SYNOPSIS
my $table = qq/
CREATE TABLE blah ( id %%INCREMENT%% primary key,
name varchar(50) )
/;
my $transformer = SPOPS::Import::DBI::TableTransform->new( 'mysql' );
$transformer->increment( \$table );
print $table;
# Output:
# CREATE TABLE blah ( id INT NOT NULL AUTO_INCREMENT primary key,
# name varchar(50) )
=head1 DESCRIPTION
MySQL-specific type conversions for the auto-increment and other field
types.
=head1 METHODS
B<increment>
Returns 'INT NOT NULL AUTO_INCREMENT'
B<increment_type>
Returns 'INT'
B<datetime>
Returns 'DATETIME'
=head1 BUGS
None known.
=head1 TO DO
Nothing known
=head1 SEE ALSO
L<SPOPS::Import::DBI::TableTransform|SPOPS::Import::DBI::TableTransform>
=head1 COPYRIGHT
Copyright (c) 2002-2004 intes.net, inc.. All rights reserved.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 AUTHORS
Chris Winters E<lt>chris@cwinters.comE<gt>