[Bast-commits] r4101 - in trunk/Devel-REPL: . lib/Devel lib/Devel/REPL/Plugin

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-02-25 20:19:53 +0000 (Mon, 25 Feb 2008)
New Revision: 4101

Modified:
   trunk/Devel-REPL/Changes
   trunk/Devel-REPL/Makefile.PL
   trunk/Devel-REPL/lib/Devel/REPL.pm
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/Commands.pm
Log:
1.002001

Modified: trunk/Devel-REPL/Changes
===================================================================
--- trunk/Devel-REPL/Changes	2008-02-24 09:46:04 UTC (rev 4100)
+++ trunk/Devel-REPL/Changes	2008-02-25 20:19:53 UTC (rev 4101)
@@ -1,4 +1,7 @@
+1.2.1
+  - ship a working version of 1.2.0
 1.2.0
+  - fix Plugin to work with latest Moose
   - deprecate NewlineHack plugin, cause fixed in REPL.pm
   - OutputCache plugin
   - MultiLine::PPI plugin

Modified: trunk/Devel-REPL/Makefile.PL
===================================================================
--- trunk/Devel-REPL/Makefile.PL	2008-02-24 09:46:04 UTC (rev 4100)
+++ trunk/Devel-REPL/Makefile.PL	2008-02-25 20:19:53 UTC (rev 4101)
@@ -8,7 +8,7 @@
 install_script 'script/re.pl';
 
 build_requires 'Test::More';
-requires 'Moose';
+requires 'Moose' => '0.38';
 requires 'MooseX::Object::Pluggable' => '0.0007';
 requires 'MooseX::Getopt';
 requires 'namespace::clean';

Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/Commands.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/Commands.pm	2008-02-24 09:46:04 UTC (rev 4100)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/Commands.pm	2008-02-25 20:19:53 UTC (rev 4101)
@@ -26,18 +26,24 @@
 after 'setup_commands' => sub {
   my ($self) = @_;
   weaken($self);
-  $self->command_set->{load_plugin} = sub { $self->load_plugin(@_); };
+  $self->command_set->{load_plugin} = sub {
+    my $self = shift;
+    sub { $self->load_plugin(@_); };
+  };
 };
 
 sub command_installer {
   my ($self) = @_;
-  my %command_set = %{$self->command_set};
+  my $command_set = $self->command_set;
+  my %command_subs = map {
+    ($_ => $command_set->{$_}->($self));
+  } keys %$command_set;
   return sub {
     my $package = shift;
-    foreach my $command (keys %command_set) {
+    foreach my $command (keys %command_subs) {
       no strict 'refs';
       no warnings 'redefine';
-      *{"${package}::${command}"} = $command_set{$command};
+      *{"${package}::${command}"} = $command_subs{$command};
     }
   };
 }

Modified: trunk/Devel-REPL/lib/Devel/REPL.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL.pm	2008-02-24 09:46:04 UTC (rev 4100)
+++ trunk/Devel-REPL/lib/Devel/REPL.pm	2008-02-25 20:19:53 UTC (rev 4101)
@@ -5,7 +5,7 @@
 use namespace::clean -except => [ 'meta' ];
 use 5.8.1; # might work with earlier perls but probably not
 
-our $VERSION = '1.002000'; # 1.2.0
+our $VERSION = '1.002001'; # 1.2.1
 
 with 'MooseX::Object::Pluggable';