package MyPackage; use overload q/=/ => sub { $_[0]->new($_[0]->{foo}) };