use strict;
use base qw/Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/code namespace reverse/);
+__PACKAGE__->mk_accessors(qw/class namespace reverse attributes name code/);
use overload (
=head1 METHODS
-=over 4
+=head2 attributes
-=item code
+=head2 class
-=item execute
+=head2 code
+
+=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
-
-=item reverse
-
-=item new
+=head2 namespace
-=cut
-
-sub new { # Dumbass constructor
- my ( $class, $attrs ) = @_;
- return bless { %{ $attrs || {} } }, $class;
-}
+=head2 reverse
-=back
+=head2 name
=head1 AUTHOR