Commit | Line | Data |
c5051351 |
1 | package SQL::Translator::Object::Table; |
2 | use Moose; |
109263d0 |
3 | use MooseX::Types::Moose qw(HashRef Str); |
4 | use MooseX::AttributeHelpers; |
bbdcd43e |
5 | use SQL::Translator::Types qw(Column Constraint Index Schema); |
6 | use SQL::Translator::Object::Schema; |
cc73c25e |
7 | extends 'SQL::Translator::Object'; |
c5051351 |
8 | |
109263d0 |
9 | has 'name' => ( |
e157d782 |
10 | is => 'rw', |
109263d0 |
11 | isa => Str, |
12 | required => 1 |
13 | ); |
14 | |
15 | has 'columns' => ( |
16 | metaclass => 'Collection::Hash', |
17 | is => 'rw', |
18 | isa => HashRef[Column], |
e157d782 |
19 | provides => { |
20 | exists => 'exists_column', |
21 | keys => 'column_ids', |
22 | get => 'get_column', |
7aa485df |
23 | # set => 'set_column', |
e157d782 |
24 | }, |
7aa485df |
25 | curries => { set => { add_column => sub { my ($self, $body, $column) = @_; $self->$body($column->name, $column); } } }, |
26 | default => sub { {} }, |
e157d782 |
27 | required => 0 |
109263d0 |
28 | ); |
29 | |
30 | has 'indexes' => ( |
31 | metaclass => 'Collection::Hash', |
32 | is => 'rw', |
33 | isa => HashRef[Index], |
e157d782 |
34 | provides => { |
35 | exists => 'exists_index', |
36 | keys => 'index_ids', |
37 | get => 'get_index', |
7aa485df |
38 | # set => 'set_index', |
e157d782 |
39 | }, |
7aa485df |
40 | curries => { set => { add_index => sub { my ($self, $body, $index) = @_; $self->$body($index->name, $index); } } }, |
41 | default => sub { {} }, |
109263d0 |
42 | required => 0 |
43 | ); |
44 | |
45 | has 'constraints' => ( |
46 | metaclass => 'Collection::Hash', |
47 | is => 'rw', |
48 | isa => HashRef[Constraint], |
e157d782 |
49 | provides => { |
50 | exists => 'exists_constraint', |
51 | keys => 'constraint_ids', |
52 | get => 'get_constraint', |
53 | set => 'set_constraint', |
54 | }, |
7aa485df |
55 | default => sub { {} }, |
109263d0 |
56 | required => 0 |
57 | ); |
58 | |
7aa485df |
59 | =cut |
109263d0 |
60 | has 'schema' => ( |
e157d782 |
61 | is => 'rw', |
109263d0 |
62 | isa => Schema, |
e157d782 |
63 | required => 0, |
109263d0 |
64 | default => sub { SQL::Translator::Object::Schema->new } |
65 | ); |
7aa485df |
66 | =cut |
67 | no Moose; |
68 | __PACKAGE__->meta()->make_immutable; |
c5051351 |
69 | |
70 | 1; |