Topic/demolish warnings

lib/Moose/Object.pm

@@ -78,7 +78,10 @@ sub DEMOLISHALL {
 
     foreach my $class (@isa) {
         no strict 'refs';
-        my $demolish = *{"${class}::DEMOLISH"}{CODE};
+        my $demolish = do {
+            no warnings 'once';
+            *{"${class}::DEMOLISH"}{CODE};
+        };
         $self->$demolish($in_global_destruction)
             if defined $demolish;
     }

t/bugs/DEMOLISH_warnings.t

@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+
+use lib 't/lib';
+use Test::More tests => 1;
+
+my @warnings;
+BEGIN {
+    $SIG{__WARN__} = sub { push @warnings, @_ };
+}
+
+use Demolition::OnceRemoved;
+
+is scalar @warnings, 0, "No warnings"
+ or diag explain \@warnings;

t/lib/Demolition/Demolisher.pm

@@ -0,0 +1,6 @@
+package Demolition::Demolisher;
+use Moose;
+
+sub DEMOLISH { }
+
+1;

t/lib/Demolition/OnceRemoved.pm

@@ -0,0 +1,9 @@
+package Demolition::OnceRemoved;
+use strict;
+use warnings;
+use Demolition::Demolisher;
+
+my $d = Demolition::Demolisher->new;
+$d->DEMOLISH;
+
+1;