6 use Test::More tests => 3;
14 push @::demolished, __PACKAGE__;
23 push @::demolished, __PACKAGE__;
26 package Foo::Sub::Sub;
32 push @::demolished, __PACKAGE__;
39 is_deeply(\@demolished, ['Foo'], "Foo demolished properly");
42 my $foo_sub = Foo::Sub->new;
44 is_deeply(\@demolished, ['Foo::Sub', 'Foo'], "Foo::Sub demolished properly");
47 my $foo_sub_sub = Foo::Sub::Sub->new;
49 is_deeply(\@demolished, ['Foo::Sub::Sub', 'Foo::Sub', 'Foo'],
50 "Foo::Sub::Sub demolished properly");