fix for 81181

[gitmo/Moo.git] / lib / Method / Generate / Accessor.pm

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index 3f2fa4a..372cba9 100644 (file)
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -166,6 +166,9 @@ sub generate_method {
     foreach my $spec (@specs) {
       my ($proxy, $target, @args) = @$spec;
       $self->{captures} = {};
+      if ( *{_getglob("${into}::${proxy}")}{CODE} ) {
+        die "You cannot overwrite a locally defined method ($proxy) with a delegation";
+      }
       $methods{$proxy} =
         quote_sub "${into}::${proxy}" =>
           $self->_generate_delegation($asserter, $target, \@args),