ちょっと勉強会で、callerで呼び出し元制限できる みたいな話になった。形にするとこんな感じになるんじゃないかと思う。 package Sister; use strict; use warnings; sub say { my $class = shift; my $pkg = caller(); unless( $pkg eq 'Brother' ) { die …