X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBI%2FSQLite.pm;h=49c4cb1dbf01963a555f430f9487ead30c2b4b06;hb=49eb21a3a6910bf8f7109fbfb06f7bb20c4eff33;hp=857566fb9ee831c8dd4d35843569098058fac99a;hpb=25cc6346d4bf94051a131b5067a26fdd5451c540;p=dbsrgits%2FSQL-Translator-2.0-ish.git

diff --git a/lib/SQL/Translator/Parser/DBI/SQLite.pm b/lib/SQL/Translator/Parser/DBI/SQLite.pm
index 857566f..49c4cb1 100644
--- a/lib/SQL/Translator/Parser/DBI/SQLite.pm
+++ b/lib/SQL/Translator/Parser/DBI/SQLite.pm
@@ -1,6 +1,25 @@
-package SQL::Translator::Parser::DBI::SQLite;
-use Moose::Role;
+use MooseX::Declare;
+role SQL::Translator::Parser::DBI::SQLite {
+    use MooseX::Types::Moose qw(HashRef);
+    use SQL::Translator::Constants qw(:sqlt_types);
 
-no Moose::Role;
+    my %data_type_mapping = (
+        'text' => SQL_LONGVARCHAR(),
+        'timestamp' => SQL_TIMESTAMP(),
+        'timestamp without time zone' => SQL_TYPE_TIMESTAMP(),
+        'timestamp' => SQL_TYPE_TIMESTAMP_WITH_TIMEZONE(),
+        'integer' => SQL_INTEGER(),
+        'character' => SQL_CHAR(),
+        'varchar' => SQL_VARCHAR(),
+        'bigint' => SQL_BIGINT(),
+    );
 
-1;
+    method _column_data_type(HashRef $column_info) {
+        print $column_info->{TYPE_NAME} . "\n";
+        my $data_type = defined $data_type_mapping{$column_info->{TYPE_NAME}} ?
+                        $data_type_mapping{$column_info->{TYPE_NAME}} :
+                        -1;
+        return $data_type;
+    }
+
+}