use strict;
use base qw/Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/code namespace reverse prefix attributes name/);
+__PACKAGE__->mk_accessors(qw/class namespace reverse attributes name code/);
use overload (
=head1 METHODS
-=over 4
+=head2 attributes
-=item attributes
+=head2 class
-=item code
+=head2 code
-=item execute
+=head2 execute
=cut
sub execute { # Execute ourselves against a context
my ( $self, $c ) = @_;
- return $c->execute( $self->namespace, $self );
+ local $c->namespace = $self->namespace;
+ return $c->execute( $self->class, $self );
}
-=item namespace
+=head2 namespace
-=item reverse
+=head2 reverse
-=item name
-
-=back
+=head2 name
=head1 AUTHOR