| SPOPS documentation | Contained in the SPOPS distribution. |
SPOPS::Import::DBI::TableTransform::SQLite - Table transformations for SQLite
my $table = qq/
CREATE TABLE blah ( id %%INCREMENT%% primary key,
name varchar(50) )
/;
my $transformer = SPOPS::Import::DBI::TableTransform->new( 'sqlite' );
$transformer->increment( \$table );
print $table;
# Output:
# CREATE TABLE blah ( id INTEGER NOT NULL primary key,
# name varchar(50) )
SQLite-specific type conversions for the auto-increment and other field types. (Since SQLite is typeless this is really for the sake of consistency.)
increment
Returns 'INTEGER NOT NULL'
increment_type
Returns 'INTEGER'
datetime
Returns 'TIMESTAMP'
None known.
Nothing known.
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.
Chris Winters <chris@cwinters.com>
| SPOPS documentation | Contained in the SPOPS distribution. |
package SPOPS::Import::DBI::TableTransform::SQLite; # $Id: SQLite.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::SQLite::VERSION = sprintf("%d.%02d", q$Revision: 3.3 $ =~ /(\d+)\.(\d+)/); sub increment { my ( $self, $sql ) = @_; $$sql =~ s/%%INCREMENT%%/INTEGER NOT NULL/g; } sub increment_type { my ( $self, $sql ) = @_; $$sql =~ s/%%INCREMENT_TYPE%%/INTEGER/g; } sub datetime { my ( $self, $sql ) = @_; $$sql =~ s/%%DATETIME%%/TIMESTAMP/g; } 1; __END__