sub parent { $_[0]->{parent} }
sub message { $_[0]->{message} }
+sub type_parameter { $_[0]->{type_parameter} }
+sub __is_parameterized { exists $_[0]->{type_parameter} }
+
sub _compiled_type_constraint{ $_[0]->{compiled_type_constraint} }
sub _compiled_type_coercion { $_[0]->{_compiled_type_coercion} }
my $demolish = Mouse::Util::get_code_ref($class, 'DEMOLISH')
|| next;
- $self->$demolish();
+ $self->$demolish($Mouse::Util::in_global_destruction);
}
};
$@;
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.50_01
=head1 SEE ALSO