From: gfx <gfuji@cpan.org>
Date: Mon, 11 Jan 2010 07:13:48 +0000 (+0900)
Subject: require Class::Method::Modifiers::Fast 0.041; this is because it requries gfx's Data... 
X-Git-Tag: 0.47~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0773d24434581f9ef0603d47dd2bc325097cc1b;p=gitmo%2FMouse.git

require Class::Method::Modifiers::Fast 0.041; this is because it requries gfx's Data::Util correctly.
---

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 520cc9d..5d1755b 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -345,7 +345,7 @@ sub _install_modifier {
     # load Class::Method::Modifiers first
     my $no_cmm_fast = do{
         local $@;
-        eval q{ require Class::Method::Modifiers::Fast };
+        eval q{ use Class::Method::Modifiers::Fast 0.041 () };
         $@;
     };
 
@@ -354,7 +354,7 @@ sub _install_modifier {
         $impl = \&_install_modifier_pp;
     }
     else{
-        my $install_modifier = Class::Method::Modifiers::Fast->can('_install_modifier');
+        my $install_modifier = Class::Method::Modifiers::Fast->can('install_modifier');
         $impl = sub {
             my ( $self, $type, $name, $code ) = @_;
             my $into = $self->name;