如何创建对常量哈希的祝福引用？

Question

我正在尝试为常量哈希创建正确的有福引用，并且下面的代码有效，但是我不确定它是否是正确的“ Perl”方式。

features = {"input_ids": in_id, "input_mask": in_mask, "segment_ids": in_segment, }

albert = hub.KerasLayer(
    "https://tfhub.dev/google/albert_xxlarge/3",
    trainable=False, signature="tokens", output_key="pooled_output",
)
x = albert(features)

有任何指针或提示吗？

Ullich更新

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;