X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FActionContainer.pm;h=e8f71fe3dcdfd053130cf642165c7fefbe4b95ce;hp=bb21c0916cbde52017406047f7e1b45d9a03ee33;hb=536bee890cf24e0e4bcda7562e7b70cc03ca0620;hpb=a13e21ab238a2752262dda5773d5be7a6273d875 diff --git a/lib/Catalyst/ActionContainer.pm b/lib/Catalyst/ActionContainer.pm index bb21c09..e8f71fe 100644 --- a/lib/Catalyst/ActionContainer.pm +++ b/lib/Catalyst/ActionContainer.pm @@ -1,25 +1,5 @@ package Catalyst::ActionContainer; -use strict; -use base qw/Class::Accessor::Fast/; - -__PACKAGE__->mk_accessors(qw/part actions/); - -use overload ( - - # Stringify to path part for tree search - q{""} => sub { shift->{part} }, - -); - -sub new { - my ( $class, $fields ) = @_; - - $fields = { part => $fields, actions => {} } unless ref $fields; - - $class->SUPER::new($fields); -} - =head1 NAME Catalyst::ActionContainer - Catalyst Action Container @@ -33,13 +13,26 @@ See L. This is a container for actions. The dispatcher sets up a tree of these to represent the various dispatch points in your application. -=head1 METHODS +=cut -=head2 get_action($name) +use Moose; +with 'MooseX::Emulate::Class::Accessor::Fast'; -Returns an action from this container based on the action name, or undef +has part => (is => 'rw', required => 1); +has actions => (is => 'rw', required => 1, lazy => 1, default => sub { {} }); -=cut +around BUILDARGS => sub { + my ($next, $self, @args) = @_; + unshift @args, 'part' if scalar @args == 1 && !ref $args[0]; + return $self->$next(@args); +}; + +no Moose; + +use overload ( + # Stringify to path part for tree search + q{""} => sub { shift->part }, +); sub get_action { my ( $self, $name ) = @_; @@ -47,18 +40,34 @@ sub get_action { return; } -=head2 add_action($action, [ $name ]) - -Adds an action, optionally providing a name to override $action->name - -=cut - sub add_action { my ( $self, $action, $name ) = @_; - my $name ||= $action->name; + $name ||= $action->name; $self->actions->{$name} = $action; } +__PACKAGE__->meta->make_immutable; + +1; + +__END__ + +=head1 METHODS + +=head2 new(\%data | $part) + +Can be called with { part => $part, actions => \%actions } for full +construction or with just a part, which will result in an empty actions +hashref to be populated via add_action later + +=head2 get_action($name) + +Returns an action from this container based on the action name, or undef + +=head2 add_action($action, [ $name ]) + +Adds an action, optionally providing a name to override $action->name + =head2 actions Accessor to the actions hashref, containing all actions in this container. @@ -68,13 +77,17 @@ Accessor to the actions hashref, containing all actions in this container. Accessor to the path part this container resolves to. Also what the container stringifies to. -=head1 AUTHOR +=head2 meta + +Provided by Moose + +=head1 AUTHORS -Matt S. Trout +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