aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorgroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-19 17:40:30 +0000
committergroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-19 17:40:30 +0000
commit5c436fa098ac8391100bad89da6449c1a6051ac9 (patch)
tree037599157926ee8711eec88c72056222bdd87658 /lib
parent78e1dcd2012eaeb96ec624c92b68b2a8d403d41e (diff)
downloadreaction-5c436fa098ac8391100bad89da6449c1a6051ac9.tar.gz
reaction-5c436fa098ac8391100bad89da6449c1a6051ac9.zip
whatever
Diffstat (limited to 'lib')
-rw-r--r--lib/Reaction/InterfaceModel/Action.pm23
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) {