move backcompat into Compat.pm and apply the role to Object.pm
[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Object / Constraint.pm
1 use MooseX::Declare;
2 class SQL::Translator::Object::Constraint extends SQL::Translator::Object {
3     use MooseX::Types::Moose qw(ArrayRef Bool HashRef Maybe Str Undef);
4     use MooseX::MultiMethods;
5     use SQL::Translator::Types qw(Column Table);
6
7     has 'table' => (
8         is => 'rw',
9         isa => Table,
10         weak_ref => 1,
11     );
12     
13     has 'name' => (
14         is => 'rw',
15         isa => Maybe[Str],
16         required => 1
17     );
18     
19     has 'columns' => (
20         traits => ['Hash'],
21         is => 'rw',
22         isa => HashRef[Column],
23         handles => {
24             exists_column => 'exists',
25             column_ids    => 'keys',
26             get_columns   => 'values',
27             get_column    => 'get',
28             add_column    => 'set',
29         },
30         default => sub { my %hash = (); tie %hash, 'Tie::IxHash'; return \%hash },
31     );
32     
33     has 'type' => (
34         is => 'rw',
35         isa => Str,
36         required => 1
37     );
38
39     has 'deferrable' => (
40         is => 'rw',
41         isa => Bool,
42         default => 1
43     );
44
45     has 'expression' => (
46         is => 'rw',
47         isa => Str,
48     );
49
50     has 'reference_table' => (
51         isa => Maybe[Str],
52         is => 'rw',
53     );
54
55     has 'reference_columns' => (
56         isa => ArrayRef,
57         traits => ['Array'],
58         handles => {
59             reference_columns => 'elements',
60         },
61         default => sub { [] },
62     );
63
64     has 'match_type' => (
65         isa => Str,
66         is => 'rw'
67     );
68
69     around add_column(Column $column) { $self->$orig($column->name, $column) }
70
71     method reference_fields { $self->reference_columns }
72 }