X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMethod%2FGenerate%2FAccessor.pm;fp=lib%2FMethod%2FGenerate%2FAccessor.pm;h=2f2e334b9544ddd05cd0d98e6aebfa3ee6dbd762;hb=cada430ead20a84999bc1b95c934f9d9c6c9045b;hp=75245289eb60fc84cf49ee5ba21871aceba88107;hpb=dffdcbb9d3953370660a237e3a494d6232f0fb14;p=gitmo%2FMoo.git

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index 7524528..2f2e334 100644
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -389,6 +389,7 @@ sub _generate_isa_check {
 
 sub _generate_call_code {
   my ($self, $name, $type, $values, $sub) = @_;
+  $sub = \&{$sub} if blessed($sub);  # coderef if blessed
   if (my $quoted = quoted_from_sub($sub)) {
     my $code = $quoted->[1];
     if (my $captures = $quoted->[2]) {