2 class SQL::Translator::Object::Column extends SQL::Translator::Object {
3 use MooseX::Types::Moose qw(Bool Int Maybe ScalarRef Str);
4 use MooseX::MultiMethods;
5 use SQL::Translator::Types qw(Bit ColumnSize Constraint Table Trigger);
26 has 'sql_data_type' => (
37 default => sub { [ 0 ] },
40 has 'is_nullable' => (
47 has 'default_value' => (
49 isa => Maybe[ScalarRef|Str],
52 has 'is_auto_increment' => (
60 has 'is_primary_key' => (
66 has 'is_foreign_key' => (
72 has 'foreign_key_reference' => (
83 $self->$orig(@args) if @args;
84 my @sizes = $self->$orig;
85 return wantarray ? @sizes