package Devel::REPL::Plugin::Turtles;
use Moose::Role;
+use namespace::clean -except => [ 'meta' ];
around 'eval' => sub {
my $next = shift;
my ($self, $line) = @_;
if ($line =~ /^#(.*)/) {
- return $next->($self, ('$self->' . $1 . '; return();'));
+ return $next->($self, ('$REPL->' . $1 . '; return();'));
}
else {
return $next->($self, $line);
};
-1;
\ No newline at end of file
+1;