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 (
=over 4
+=item attributes
+
+=item class
+
=item code
=item execute
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
-
-=cut
-
-sub new { # Dumbass constructor
- my ( $class, $attrs ) = @_;
- return bless { %{ $attrs || {} } }, $class;
-}
+=item name
=back