hash-to-object.pl

#!/usr/bin/env perl
use v5.26;
use strict;
use warnings;

package My::Thing {
    use Moo;
    has value => ( is => 'ro', required => 1 );
};

package My::Class {
    use Moo;
    use Types::Standard qw(InstanceOf);

    has thing => (
        is => 'ro',
        isa => (InstanceOf['My::Thing'])->plus_constructors,
        coerce => 1,
        required => 1,
    );

    sub talk {
        say 'my thing has value '.$_[0]->thing->value;
    }
};

my $o = My::Class->new({thing=>{value=>42}});
$o->talk;