Moved execute to $REPL

git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@3195 bd8105ee-0ff8-0310-8827-fb3f25b6796d

diff --git a/lib/Devel/REPL.pm b/lib/Devel/REPL.pm
index 89c3a8b..ff461f5 100644 (file)
--- a/lib/Devel/REPL.pm
+++ b/lib/Devel/REPL.pm
@@ -68,9 +68,9 @@ sub mangle_line {
 }
 
 sub execute {
-  my ($self, $to_exec, @args) = @_;
-  my @ret = eval { $to_exec->(@args) };
-  return $self->error_return("Runtime error", $@) if $@;
+  my $REPL = shift;
+  my @ret = eval { shift->(@_) };
+  return $REPL->error_return("Runtime error", $@) if $@;
   return @ret;
 }