gfx https://blog.hatena.ne.jp/gfx/ Islands in the byte stream (legacy) https://gfx.hatenadiary.org/ Perl Devel::GlobalDestruction はPurePerlでも実装できる。 END{ $in_global_destruction = 1; } sub DESTROY{ return if $in_global_destruction; # do something complex } Perlのソースコードも読んだが，これで完全にDevel::GlobalDestruction::in_global_destruction() の代替になる。ちなみに，Perl終了時にデストラクタ起動したくなければ，以下のようにするとDESTROYの呼び出しそのものをスキップできる*1。 END{… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgfx.hatenadiary.org%2Fentry%2F20091116%2F1258363787" title="An implementation of Devel::GlobalDestruction in pure Perl - Islands in the byte stream (legacy)" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-11-16 18:29:47 rich https://gfx.hatenadiary.org/entry/20091116/1258363787 1.0 100%