perl - 読み取り可能なサブルーチン ハッシュ引数を記述するにはどうすればよいですか?

Question

職場では、引数をハッシュ ref としてサブルーチンに渡すのが好きです。

my $manager = DatabaseManager->new({
    'sHost'     => 'my_host',
    'sDatabase' => 'some_database'
});

オブジェクト自体には、次のような init 関数があります。

sub _init
{
    my ($self, $phArgs) = @_;

    $self->{_sHost}     = $phArgs->{sHost};
    $self->{_sDatabase} = $phArgs->{sDatabase};
}

これを整理する方法はありますか？最初の行だけがより明確になったとしても、それは改善だと思います. 何かのようなもの

sub _init
{
    my ($self, ($host, $database) ) = @_;

    $self->{_sHost}     = $host;
    $self->{_sDatabase} = $database;
}

次に、サブルーチンに必要なものは明らかです。何か案は？