X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoo.pm;h=0dfaf8d1040b3ee00166ce6f9c2ec898bdf849c9;hb=c600e70640098ae6ad958dc7a07187464abd37d3;hp=c1d09a4f2300a053d478efb749e896379ed1df1b;hpb=e18659958c8a6bf3fc60b9531e40acbea275076f;p=gitmo%2FMoo.git diff --git a/lib/Moo.pm b/lib/Moo.pm index c1d09a4..0dfaf8d 100644 --- a/lib/Moo.pm +++ b/lib/Moo.pm @@ -121,7 +121,7 @@ sub _accessor_maker_for { $MAKERS{$target}{accessor} ||= do { my $maker_class = do { if (my $m = do { - if (my $defer_target = + if (my $defer_target = (Sub::Defer::defer_info($target->can('new'))||[])->[0] ) { my ($pkg) = ($defer_target =~ /^(.*)::[^:]+$/); @@ -166,7 +166,7 @@ sub _constructor_maker_for { } else { $moo_constructor = 1; # no other constructor, make a Moo one } - }; + } ($con ? ref($con) : 'Method::Generate::Constructor') ->new( package => $target, @@ -191,6 +191,8 @@ sub _constructor_maker_for { } 1; +__END__ + =pod =encoding utf-8