diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-19 17:40:30 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-19 17:40:30 +0000 |
commit | 5c436fa098ac8391100bad89da6449c1a6051ac9 (patch) | |
tree | 037599157926ee8711eec88c72056222bdd87658 /lib | |
parent | 78e1dcd2012eaeb96ec624c92b68b2a8d403d41e (diff) | |
download | reaction-5c436fa098ac8391100bad89da6449c1a6051ac9.tar.gz reaction-5c436fa098ac8391100bad89da6449c1a6051ac9.zip |
whatever
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Reaction/InterfaceModel/Action.pm | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/lib/Reaction/InterfaceModel/Action.pm b/lib/Reaction/InterfaceModel/Action.pm index 0074b02..c4e4cae 100644 --- a/lib/Reaction/InterfaceModel/Action.pm +++ b/lib/Reaction/InterfaceModel/Action.pm @@ -8,15 +8,23 @@ use Reaction::Class; use namespace::clean -except => [ qw(meta) ]; +has target_model => ( + is => 'ro', + required => 1, + metaclass => 'Reaction::Meta::Attribute' +); + +has ctx => ( + isa => 'Catalyst', + is => 'ro', + lazy_fail => 1, + metaclass => 'Reaction::Meta::Attribute' +); -has target_model => (is => 'ro', required => 1, - metaclass => 'Reaction::Meta::Attribute'); - -has ctx => (isa => 'Catalyst', is => 'ro', lazy_fail => 1, - metaclass => 'Reaction::Meta::Attribute'); sub parameter_attributes { shift->meta->parameter_attributes; -}; +} + sub parameter_hashref { my ($self) = @_; my %params; @@ -27,7 +35,8 @@ sub parameter_hashref { $params{$attr->name} = $self->$reader; } return \%params; -}; +} + sub can_apply { my ($self) = @_; foreach my $attr ($self->parameter_attributes) { |