[Bast-commits] r3211 - trunk/Devel-REPL/lib/Devel/REPL/Plugin

[epitaph at dev.catalyst.perl.org]

Author: epitaph
Date: 2007-04-26 02:30:12 +0100 (Thu, 26 Apr 2007)
New Revision: 3211

Added:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm
Log:
Added D:R:P:Packages,pm. For experimentation only!


Added: trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm	                        (rev 0)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/Packages.pm	2007-04-26 01:30:12 UTC (rev 3211)
@@ -0,0 +1,48 @@
+# First cut at handling packages.
+#
+# doesn't work very well, and totally doesn't work with the wrap_as_sub
+# stuff ;) For comments only really
+
+package Devel::REPL::Plugin::Packages;
+
+use Moose::Role;
+
+has 'current_package' => (
+  isa      => 'Str',
+  is       => 'rw',
+  default  => 'main',
+  lazy     => 1
+);
+
+around 'eval' => sub {
+# we don't call forward to $orig here, since the new sub-wrapped system
+# doesn't work. We spot package declarations and retain the name so
+# that we can reenter the package for each statement. Not sure the
+# regex is bob on, but then it doesn't work anyway...
+  my $orig=shift;
+  my ($self, $line)=@_;
+
+  my @ret=("OOPS: ".__PACKAGE__.'$ret unset!');
+
+#  $self->print("Line is: $line");
+  if($line=~/\s*package\s([\w:]*)/) {
+#    $self->print("Recognised as a package switch");
+#    $ret=$self->$orig($line);
+    @ret=eval $line;
+#    $self->print("ret: @ret");
+    # should check for good return here
+    $self->current_package($1);
+#    $self->print('curr pkg: '.$self->current_package);
+  } else {
+#    $self->print("Not a package switch");
+    my $packaged_line='package ' . $self->current_package . '; '.$line;
+#    $self->print("packaged line: $packaged_line");
+#    @ret=$self->$orig($packaged_line);
+    @ret=eval $packaged_line;
+#    $self->print("ret: @ret");
+  }
+  return @ret;
+};
+
+1;
+