+++ /dev/null
-use strict;
-use warnings;
-use Test::More tests => 2;
-use Test::Exception;
-
-my $i;
-
-{
- package Parent;
- use Mouse;
- sub DEMOLISH {
- main::is $i++, 1;
- }
- no Mouse;
- __PACKAGE__->meta->make_immutable;
-}
-
-{
- package Child;
- use Mouse;
- extends 'Parent';
- sub DEMOLISH {
- main::is $i++, 0;
- }
- __PACKAGE__->meta->make_immutable;
-}
-
-Child->new();
-