trAvis - MANAGER

Edit File: 804-immutable-demolish.t

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();