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, ('$REPL->' . $1 . '; return();')); } else { return $next->($self, $line); } }; 1;