From: 大沢 和宏 <yappo@shibuya.pl>
Date: Fri, 5 Dec 2008 17:14:40 +0000 (+0000)
Subject: Encapsulation
X-Git-Tag: 0.19~136^2~22
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ecefe82d9a12633e2934938ee630b952bd9359a;p=gitmo%2FMouse.git

Encapsulation
---

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 9f68070..97cd5c0 100644
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -184,7 +184,7 @@ sub generate_handles {
 
         my $method = 'sub {
             my $self = shift;
-            $self->$reader->$remote_method(@_)
+            $self->'.$reader.'->'.$remote_method.'(@_)
         }';
 
         $method_map{$local_method} = eval $method;