——package
Catalyst::Action;
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;