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