projects
/
gitmo/Moo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
inlining for overloaded object isa/coerce
[gitmo/Moo.git]
/
lib
/
Method
/
Generate
/
Accessor.pm
diff --git
a/lib/Method/Generate/Accessor.pm
b/lib/Method/Generate/Accessor.pm
index
e5ca31d
..
135ec69
100644
(file)
--- 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]) {