remove comments
[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Object / Index.pm
CommitLineData
c5051351 1package SQL::Translator::Object::Index;
2use Moose;
109263d0 3use MooseX::Types::Moose qw(HashRef Str);
e157d782 4use MooseX::AttributeHelpers;
c0e05758 5use SQL::Translator::Types qw(Column);
cc73c25e 6extends 'SQL::Translator::Object';
c5051351 7
109263d0 8has 'name' => (
9 is => 'rw',
10 isa => Str,
11 required => 1
12);
13
14has '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
28has 'type' => (
29 is => 'rw',
30 isa => Str,
31 required => 1
32);
c5051351 33
7aa485df 34no Moose;
35__PACKAGE__->meta->make_immutable;
36
c5051351 371;