1 package Mouse::Meta::Method::Destructor;
5 sub generate_destructor_method_inline {
6 my ($class, $meta) = @_;
9 if ($meta->name->can('DEMOLISH')) {
12 for my $klass ($meta->linearized_isa) {
13 if (*{$klass . '::DEMOLISH'}{CODE}) {
14 push @code, "${klass}::DEMOLISH(\$self);";
19 return sub { }; # no demolish =)
29 warn $code if $ENV{DEBUG};