use MooseX::Declare;
class SQL::Translator::Object::Trigger {
- use MooseX::Types::Moose qw(ArrayRef HashRef Str);
+ use MooseX::Types::Moose qw(Any ArrayRef HashRef Str);
use MooseX::AttributeHelpers;
use SQL::Translator::Types qw(Column);
extends 'SQL::Translator::Object';
keys => 'column_ids',
values => 'get_columns',
get => 'get_column',
- },
- curries => {
- set => {
- add_column => sub {
- my ($self, $body, $column) = @_;
- $self->$body($column->name, $column);
- }
- }
+ set => 'add_column',
},
default => sub { my %hash = (); tie %hash, 'Tie::IxHash'; return \%hash },
);
has 'action' => (
is => 'rw',
- isa => Str
+ isa => Any
);
has 'perform_action_when' => (
required => 1
);
- method get_fields { return $self->get_columns }
- method fields { return $self->column_ids }
+ around add_column(Column $column) { $self->$orig($column->name, $column) }
+
+ method get_fields { $self->get_columns }
+ method fields { $self->column_ids }
}