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