# $Id: /local/Mango/trunk/t/lib/Mango/Test/Catalyst/Action.pm 313 2007-05-30T16:16:45.407876Z claco $
package
Mango::Test::Catalyst::Action;
use
strict;
use
warnings;
BEGIN {
__PACKAGE__->mk_group_accessors(
'simple'
,
qw/attributes reverse/
);
};
use
overload (
q{""}
=>
sub
{
shift
->{
'reverse'
}}
);
sub
new {
my
(
$class
,
$args
) =
@_
;
$args
||= {};
$args
->{
'attributes'
} ||= {};
bless
$args
,
$class
;
};
1;