メソッド

こういうの良くないと思っている。

sub fuga {
    my ($self, $is_hoge) = @_;
    if ($is_hoge) {
        # hoge処理
    }
    # fuga処理
}

こんなのやるくらいだったら、新しいメソッド生やすのがいいと思っている。

sub hoge {
    # hoge処理
    fuga()
}