[Bast-commits] r3195 - trunk/Devel-REPL/lib/Devel

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-04-16 03:05:34 +0100 (Mon, 16 Apr 2007)
New Revision: 3195

Modified:
   trunk/Devel-REPL/lib/Devel/REPL.pm
Log:
Moved execute to $REPL

Modified: trunk/Devel-REPL/lib/Devel/REPL.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL.pm	2007-04-16 01:15:41 UTC (rev 3194)
+++ trunk/Devel-REPL/lib/Devel/REPL.pm	2007-04-16 02:05:34 UTC (rev 3195)
@@ -68,9 +68,9 @@
 }
 
 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;
 }