Suppress "DEMOLISH used only once" warnings

See https://rt.cpan.org/Public/Bug/Display.html?id=124194 for more details
moose · May 18, 2018 · 885f2b3 · 885f2b3
1 parent e6ae140
commit 885f2b3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Moose/Object.pm b/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;
     }