From: Stevan Little <stevan.little@iinteractive.com>
Date: Fri, 15 Feb 2008 19:07:40 +0000 (+0000)
Subject: whoops nother bug, dammit
X-Git-Tag: 0_55~304
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80d955e4adf8339dd3d3526ad335deca749cf0fd;p=gitmo%2FMoose.git

whoops nother bug, dammit
---

diff --git a/Changes b/Changes
index c781160..6f08950 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,12 @@
 Revision history for Perl extension Moose
 
-0.38
+0.39
+    * Moose::Meta::Attribute 
+      - fix handles so that it doesn't return nothing 
+        when the method cannot be found, not sure why 
+        it ever did this originally 
+
+0.38 Fri. Feb. 15, 2008
     * Moose::Meta::Attribute 
       - fixed initializer to correctly do 
         type checking and coercion in the 
@@ -10,7 +16,7 @@ Revision history for Perl extension Moose
     * t/
       - fixed some finicky tests (thanks to konobi)
 
-0.37 Thurs. Fri. 14, 2008
+0.37 Thurs. Feb. 14, 2008
     * Moose
       - fixed some details in Moose::init_meta 
         and its superclass handling (thanks thepler)
diff --git a/README b/README
index 6528728..b09c23b 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Moose version 0.38
+Moose version 0.39
 ===========================
 
 See the individual module documentation for more information
diff --git a/lib/Moose.pm b/lib/Moose.pm
index c40351b..8a64497 100644
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -4,7 +4,7 @@ package Moose;
 use strict;
 use warnings;
 
-our $VERSION   = '0.38';
+our $VERSION   = '0.39';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed', 'reftype';
diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 952da9b..7a635a2 100644
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -9,7 +9,7 @@ use Carp         'confess';
 use Sub::Name    'subname';
 use overload     ();
 
-our $VERSION   = '0.21';
+our $VERSION   = '0.22';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Moose::Meta::Method::Accessor;
@@ -443,7 +443,7 @@ sub install_accessors {
                     (defined $proxy) 
                         || confess "Cannot delegate $handle to $method_to_call because " . 
                                    "the value of " . $self->name . " is not defined";
-                    goto &{ $proxy->can($method_to_call) || return };
+                    $proxy->$method_to_call;
                 });
             }
         }