start of hardcore refactoring

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Generator / Role / DDL.pm

diff --git a/lib/SQL/Translator/Generator/Role/DDL.pm b/lib/SQL/Translator/Generator/Role/DDL.pm
new file mode 100644 (file)
index 0000000..6510468
--- /dev/null
+++ b/lib/SQL/Translator/Generator/Role/DDL.pm
@@ -0,0 +1,36 @@
+package SQL::Translator::Generator::Role::DDL;
+
+use Moo::Role;
+
+requires '_build_shim';
+requires '_build_type_map';
+requires 'field_type_size';
+
+has shim => (
+   is => 'ro',
+   builder => '_build_shim',
+);
+
+has type_map => (
+   is => 'ro',
+   builder => '_build_type_map',
+);
+
+# would also be handy to have a required size set if there is such a thing
+
+sub field_name { $_[0]->shim->quote($_[1]->name) }
+
+sub field_nullable { ($_[1]->is_nullable ? 'NULL' : 'NOT NULL' ) }
+
+sub field_default {
+  (defined $_[1]->default_value ? 'DEFAULT ' . q(') . $_[1]->default_value . q(') : () )
+}
+
+sub field_type {
+   my ($self, $field) = @_;
+
+   my $field_type = $field->data_type;
+   ($self->type_map->{$field_type} || $field_type).$self->field_type_size($field)
+}
+
+1;