メモ

no MODULEするときのコード例。id:perlcodesampleのObject::Simpleより。

sub unimport {
    
    # Get caller class
    my $caller_class = caller;
    
    # Delete MODIFY_CODE_ATTRIBUTES subroutine of caller class
    no strict 'refs';
    delete ${$caller_class . '::'}{MODIFY_CODE_ATTRIBUTES};
}

どうしようかなー、なにか方法あったよねー、とか思ってたけど、これでした。あとでうまくいくかどうかPoC書く。これでうまくいった。とはいっても、書く前に決めておかなきゃいけないこといくつもあるんだけどねー。