=head1 METHODS
-=over 4
-
-=item part
-
-=item actions
-
-=item new
+=head2 get_action
=cut
-sub new { # Dumbass constructor
- my ( $class, $attrs ) = @_;
- return bless { %{ $attrs || {} } }, $class;
+sub get_action {
+ my ( $self, $name ) = @_;
+ return $self->actions->{$name} if defined $self->actions->{$name};
+ return;
}
-=back
+=head2 actions
+
+=head2 part
=head1 AUTHOR