sub get_attribute_list{ keys %{$_[0]->{attributes}} }
-
# XXX: for backward compatibility
my %foreign = map{ $_ => undef } qw(
Mouse Mouse::Role Mouse::Util Mouse::Util::TypeConstraints
sub DESTROY{
my($self) = @_;
+ return if $Mouse::Util::in_global_destruction;
+
my $serial_id = $self->{anon_serial_id};
return if !$serial_id;
}
1;
-
__END__
=head1 NAME
=head1 VERSION
-This document describes Mouse version 0.40_07
+This document describes Mouse version 0.42
=head1 SEE ALSO