18_destroy.pl

package Foo;
use Moose;

sub DEMOLISH { warn 'Foo::Demolish' }
sub BUILD    { warn 'Foo::Build' }

package Bar;
use Moose;
extends 'Foo';

sub DEMOLISH { warn 'Bar::Demolish' }
sub BUILD    { warn 'Bar::Build' }

package main;

my $b = Bar->new;