add header_comment
[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Generator / Role / DDL.pm
1 package SQL::Translator::Generator::Role::DDL;
2
3 use Moo::Role;
4 use SQL::Translator::Utils qw(header_comment);
5
6 requires '_build_shim';
7 requires '_build_type_map';
8 requires '_build_numeric_types';
9 requires '_build_unquoted_defaults';
10 requires 'field_type_size';
11
12 has shim => (
13    is => 'ro',
14    handles => [ 'quote' ],
15    builder => '_build_shim',
16 );
17
18 has type_map => (
19    is => 'ro',
20    builder => '_build_type_map',
21 );
22
23 has numeric_types => (
24    is => 'ro',
25    builder => '_build_numeric_types',
26 );
27
28 has unquoted_defaults => (
29    is => 'ro',
30    builder => '_build_unquoted_defaults',
31 );
32
33 has add_comments => (
34    is => 'ro',
35 );
36
37 has add_drop_table => (
38    is => 'ro',
39 );
40
41 # would also be handy to have a required size set if there is such a thing
42
43 sub field_name { $_[0]->quote($_[1]->name) }
44
45 sub field_comments {
46    ( $_[1]->comments ? ('-- ' . $_[1]->comments . "\n ") : () )
47 }
48
49 sub field_nullable { ($_[1]->is_nullable ? $_[0]->nullable : 'NOT NULL' ) }
50
51 sub field_default {
52   return () if !defined $_[1]->default_value;
53
54   my $val = $_[1]->default_value;
55   $val = "'$val'" unless $_[0]->numeric_types->{$_[1]->data_type};
56   return ( "DEFAULT $val" )
57 }
58
59 sub field_type {
60    my ($self, $field) = @_;
61
62    my $field_type = $field->data_type;
63    ($self->type_map->{$field_type} || $field_type).$self->field_type_size($field)
64 }
65
66 sub fields {
67   my ($self, $table) = @_;
68   ( map $self->field($_), $table->get_fields )
69 }
70
71 sub nullable { 'NULL' }
72
73 sub header_comments { header_comment() . "\n" if $_[0]->add_comments }
74
75 1;