1 package Catalyst::ActionContainer;
4 use base qw/Class::Accessor::Fast/;
6 __PACKAGE__->mk_accessors(qw/part actions/);
10 # Stringify to path part for tree search
11 q{""} => sub { shift->{part} },
17 Catalyst::ActionContainer - Catalyst Action Container
37 sub new { # Dumbass constructor
38 my ( $class, $attrs ) = @_;
39 return bless { %{ $attrs || {} } }, $class;
50 This program is free software, you can redistribute it and/or modify it under
51 the same terms as Perl itself.