Perl:如何在没有警告的情况下调用 END {} 中的对象方法？

Question

package JustTesting;
use strict;
use warnings;

sub new {
    my $self = {};
    bless($self, shift);
    END { $self->goodbye() };
    return $self;
}

sub goodbye {
    print "Goodbye.\n";
}

package main;
my $this = JustTesting->new();

输出:

Variable "$self" will not stay shared at ./test line 10.
Goodbye.

显然它有效，我可以用 no
warnings 抑制警告在 END 块内。但我想知道是否有更好的方法
这该怎么做。

我尝试使用这样的匿名子:

my $cleanup = sub { $self->goodbye() };
END { $cleanup->() };

然后像这样:

END { sub { $self->goodbye() }->() };

但我总是收到同样的警告。

Answer 1

您最有可能想要 DESTROY 而不是 END .另见 the section on destructors in perltoot .

package JustTesting;
use strict;
use warnings;

sub new {
    my $self = {};
    bless($self, shift);
    return $self;
}

sub goodbye {
    print "Goodbye.\n";
}

sub DESTROY {
    my ($self) = @_;
    $self->goodbye()
};


package main;
{
    say "entering scope";
    my $this = JustTesting->new();
    say "leaving scope";
}
say "left scope";

输出:

进入范围
离开范围
再见。
左范围