1 package Mouse::Meta::Method::Destructor;
2 use Mouse::Util qw(:meta); # enables strict and warnings
4 use constant _MOUSE_DEBUG => $ENV{MOUSE_DEBUG} ? 1 : 0;
6 sub _generate_destructor{
7 my (undef, $metaclass) = @_;
10 for my $class ($metaclass->linearized_isa) {
11 if (Mouse::Util::get_code_ref($class, 'DEMOLISH')) {
12 $demolishall .= ' ' . $class
13 . '::DEMOLISH($self, $Mouse::Util::in_global_destruction);'
19 $demolishall = sprintf <<'EOT', $demolishall;
29 die $e if $e; # rethrow
33 my $name = $metaclass->name;
34 my $source = sprintf(<<'EOT', __FILE__, $name, $demolishall);
39 return $self->Mouse::Object::DESTROY()
40 if ref($self) ne __PACKAGE__;
47 warn $source if _MOUSE_DEBUG;
64 Mouse::Meta::Method::Destructor - A Mouse method generator for destructors
68 This document describes Mouse version 0.95
72 L<Moose::Meta::Method::Destructor>