use v5.36;
use overload q{%{}} => sub { { foo => 1 } };
sub foo { $_[0]->{foo} }
my $x= bless { foo => 2 }, "main";
say $x->foo;