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 Returns 'INT NOT NULL AUTO_INCREMENT' B Returns 'INT' B Returns 'DATETIME' =head1 BUGS None known. =head1 TO DO Nothing known =head1 SEE ALSO L =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 Echris@cwinters.comE