perl - 如何组织 Perl 对象的私有(private)方法？

Question

处理用户不会调用的方法的正确方法是什么？例如，如果用户调用一个方法，比如 do_stuff()来自驱动程序脚本，如果 do_stuff()依赖于其他子例程，从 do_stuff() 中调用这些子程序是最佳实践吗？方法如下:

sub do_stuff {
    my ( $self, %arg ) = @_;
    #does it things
    #and then calls the private sub as follows
    _private_sub( $self, %arg );
}

Answer 1

据我所知，没有“正确”的方法。 Perl 不提供隐藏函数的能力，至少我曾经遇到过。我所做的是使用命名标准，其中我用下划线开始仅限内部的函数名称，并清楚地记录它们永远不会被外部调用者调用。

编辑:其他答案引发了一个想法。在每个私有(private)方法中，您可以检查“caller()”函数的结果，如果调用者不是本地模块，则中止。老实说，我个人不会去麻烦，但如果出于某种原因它对你来说真的很重要，那会强调这些方法的私密性。