Perl Best Practices(PBP)でも紹介されていた，Inside-Outテクニックというものがあります。オブジェクトの完全なカプセル化が目的なわけですよ。以下，基本的な実装を示します。 # Foo.pm package Foo; use strict; use Scalar::Util qw(refaddr); my %bar_…