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' => (
39 has 'is_nullable' => (
46 has 'default_value' => (
48 isa => Maybe[ScalarRef|Str],
51 has 'is_auto_increment' => (
59 has 'is_primary_key' => (
65 has 'is_foreign_key' => (
71 has 'foreign_key_reference' => (
82 $self->$orig(@args) if @args;
83 my @sizes = $self->$orig;
84 return wantarray ? @sizes