=head1 METHODS
-=over 4
+=head2 get_action
-=item part
+=cut
+
+sub get_action {
+ my ( $self, $name ) = @_;
+ return $self->actions->{$name} if defined $self->actions->{$name};
+ return;
+}
-=item actions
+=head2 actions
-=back
+=head2 part
=head1 AUTHOR