Commit | Line | Data |
---|---|---|
cfd04b0c | 1 | package Catalyst::ActionContainer; |
2 | ||
3 | use strict; | |
4 | use base qw/Class::Accessor::Fast/; | |
5 | ||
6 | __PACKAGE__->mk_accessors(qw/part actions/); | |
7 | ||
8 | use overload ( | |
9 | ||
10 | # Stringify to path part for tree search | |
11 | q{""} => sub { shift->{part} }, | |
12 | ||
13 | ); | |
14 | ||
15 | =head1 NAME | |
16 | ||
aa6283e4 | 17 | Catalyst::ActionContainer - Catalyst Action Container |
cfd04b0c | 18 | |
19 | =head1 SYNOPSIS | |
20 | ||
21 | See L<Catalyst>. | |
22 | ||
23 | =head1 DESCRIPTION | |
24 | ||
25 | =head1 METHODS | |
26 | ||
b5ecfcf0 | 27 | =head2 get_action |
79a3189a | 28 | |
29 | =cut | |
30 | ||
31 | sub get_action { | |
bcd1002b | 32 | my ( $self, $name ) = @_; |
79a3189a | 33 | return $self->actions->{$name} if defined $self->actions->{$name}; |
34 | return; | |
35 | } | |
cfd04b0c | 36 | |
b5ecfcf0 | 37 | =head2 actions |
79a3189a | 38 | |
b5ecfcf0 | 39 | =head2 part |
cfd04b0c | 40 | |
41 | =head1 AUTHOR | |
42 | ||
43 | Matt S. Trout | |
44 | ||
45 | =head1 COPYRIGHT | |
46 | ||
47 | This program is free software, you can redistribute it and/or modify it under | |
48 | the same terms as Perl itself. | |
49 | ||
50 | =cut | |
51 | ||
52 | 1; |