X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction.pm;h=e2e78b689156976a5c5a5341dbedcbaaf98b9fac;hb=80a909c28a951c5f2a9a98ab673c4c0a295b6988;hp=83b4da3937bd7b700372d5d3c849bca2fb2eaccd;hpb=049f82e24c3016d03bf8a866449f98b511810b95;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm index 83b4da3..e2e78b6 100644 --- a/lib/Catalyst/Action.pm +++ b/lib/Catalyst/Action.pm @@ -6,11 +6,11 @@ Catalyst::Action - Catalyst Action =head1 SYNOPSIS -
+ =head1 DESCRIPTION -This class represents a Catalyst Action. You can access the object for the +This class represents a Catalyst Action. You can access the object for the currently dispatched action via $c->action. See the L for more information on how actions are dispatched. Actions are defined in L subclasses. @@ -19,6 +19,8 @@ L subclasses. use Moose; +with 'MooseX::Emulate::Class::Accessor::Fast'; + has class => (is => 'rw'); has namespace => (is => 'rw'); has 'reverse' => (is => 'rw'); @@ -60,7 +62,7 @@ sub execute { sub match { my ( $self, $c ) = @_; #would it be unreasonable to store the number of arguments - #the action has as it's own attribute? + #the action has as its own attribute? #it would basically eliminate the code below. ehhh. small fish return 1 unless exists $self->attributes->{Args}; my $args = $self->attributes->{Args}[0]; @@ -125,7 +127,7 @@ Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This program is free software, you can redistribute it and/or modify it under +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut