adding changes stuff

diff --git a/Changes b/Changes
index 10fdfef..160df76 100644 (file)
--- a/Changes
+++ b/Changes
@@ -12,6 +12,10 @@ Revision history for Perl extension Moose
           to take care of this, mostly we added
           support for the package_name and name 
           variables in all the Method metaclasses
+      - before/around/after method modifiers now 
+        support regexp matching of names
+        (thanks to Takatoshi Kitano)
+        - tests added for this
     
     * Moose::Meta::Class
       - added same 'add_package_symbol' fix as in 
@@ -21,6 +25,8 @@ Revision history for Perl extension Moose
       - does_role now handles non-Moose classes 
         more gracefully
         - added tests for this
+      - added the 'add_method_modifier' function 
+        (thanks to Takatoshi Kitano)
 
     * Moose::Util::TypeConstraints
       - subtypes of parameterizable types now are 
@@ -37,13 +43,6 @@ Revision history for Perl extension Moose
         (if possible) to create the anon-class
         (thanks Jonathan Rockway)
     
-    * Moose::Cookbook::Snack::ArrayRef
-      Moose::Cookbook::Snack::HashRef
-      Moose::Cookbook::Snack::Perl5ObjsVsMooseObjs
-      Moose::Cookbook::Snack::BUILD      
-      - several new Snacks added to the cookbook
-        (thanks to spicyjack)
-    
     * t/
       - fixed hash-ordering test bug that was 
         causing occasional cpantester failures 

diff --git a/lib/Moose.pm b/lib/Moose.pm
index caf7c2c..072e628 100644 (file)
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -128,12 +128,10 @@ use Moose::Util ();
             });
         },
         super => sub {
-            # FIXME can be made into goto, might break caller() for existing code
-            return Class::MOP::subname('Moose::super' => sub { return unless our $SUPER_BODY; $SUPER_BODY->(our @SUPER_ARGS) })
+            return Class::MOP::subname('Moose::super' => sub { 
+                return unless our $SUPER_BODY; $SUPER_BODY->(our @SUPER_ARGS) 
+            });
         },
-        #next => sub {
-        #    return subname 'Moose::next' => sub { @_ = our @SUPER_ARGS; goto \&next::method };
-        #},
         override => sub {
             my $class = $CALLER;
             return Class::MOP::subname('Moose::override' => sub ($&) {