Как создать благословенную ссылку на постоянную га sh?

Question

Я пытаюсь создать правильную благословенную ссылку на постоянную га sh, и приведенный ниже код работает, но я не уверен, что это правильный способ * Perl '.

package....

....
use Hash::Util qw<lock_hash>;

sub new {
    my ($self, $data, $left, $right) = @_;
    my %h = (DATA => $data, LEFT => $left, RIGHT => $right);
    my $r = bless \%h, $self;
    lock_hash($r->%*);
    $r;
}

1;

Какие-нибудь указатели или советы?

Обновление Ullich

package....

....
use Hash::Util qw<lock_hash>;

sub new {
    my ($self, $data, $left, $right) = @_;
    my %h = (DATA => $data, LEFT => $left, RIGHT => $right);
    lock_hashref(bless \%h, $self);#The Ullrich update
}

1;