use strict;
__PACKAGE__->mk_accessors(qw/class namespace reverse attributes name code/);
use overload (
# Stringify to reverse for debug output etc.
q{""} => sub { shift->{reverse} },
# Codulate to encapsulated action coderef
'&{}' => sub { shift->{code} },
);
=head1 NAME
Catalyst::Action - Catalyst Action
=head1 SYNOPSIS
See L<Catalyst>.
=head1 DESCRIPTION
=head1 METHODS
=over 4
=item attributes
=item class
=item code
=item execute
=cut
sub execute { # Execute ourselves against a context
my ( $self, $c ) = @_;
local $c->namespace = $self->namespace;
return $c->execute( $self->class, $self );
}
=item namespace
=item reverse
=item name
=back
=head1 AUTHOR
Matt S. Trout
=head1 COPYRIGHT
This program is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
1;