12 push @::demolished, __PACKAGE__;
21 push @::demolished, __PACKAGE__;
24 package Foo::Sub::Sub;
30 push @::demolished, __PACKAGE__;
37 is_deeply(\@demolished, ['Foo'], "Foo demolished properly");
40 my $foo_sub = Foo::Sub->new;
42 is_deeply(\@demolished, ['Foo::Sub', 'Foo'], "Foo::Sub demolished properly");
45 my $foo_sub_sub = Foo::Sub::Sub->new;
47 is_deeply(\@demolished, ['Foo::Sub::Sub', 'Foo::Sub', 'Foo'],
48 "Foo::Sub::Sub demolished properly");