Commit | Line | Data |
c5051351 |
1 | package SQL::Translator::Object::Index; |
2 | use Moose; |
109263d0 |
3 | use MooseX::Types::Moose qw(HashRef Str); |
e157d782 |
4 | use MooseX::AttributeHelpers; |
c0e05758 |
5 | use SQL::Translator::Types qw(Column); |
cc73c25e |
6 | extends 'SQL::Translator::Object'; |
c5051351 |
7 | |
109263d0 |
8 | has 'name' => ( |
9 | is => 'rw', |
10 | isa => Str, |
11 | required => 1 |
12 | ); |
13 | |
14 | has 'columns' => ( |
e157d782 |
15 | metaclass => 'Collection::Hash', |
109263d0 |
16 | is => 'rw', |
17 | isa => HashRef[Column], |
e157d782 |
18 | provides => { |
19 | exists => 'exists_column', |
20 | keys => 'column_ids', |
21 | get => 'get_column', |
e157d782 |
22 | }, |
7aa485df |
23 | curries => { set => { add_column => sub { my ($self, $body, $column) = @_; $self->$body($column->name, $column); } } }, |
24 | default => sub { {} }, |
25 | required => 0 |
109263d0 |
26 | ); |
27 | |
28 | has 'type' => ( |
29 | is => 'rw', |
30 | isa => Str, |
31 | required => 1 |
32 | ); |
c5051351 |
33 | |
7aa485df |
34 | no Moose; |
35 | __PACKAGE__->meta->make_immutable; |
36 | |
c5051351 |
37 | 1; |