Point.pm

package Point;

use Data::Dumper::Concise qw< Dumper >;
use Scalar::Util qw< refaddr >;

my %x;
my %y;

use overload '""' => sub {
    my $self = shift;
    Dumper +{
        x => $x{refaddr $self},
        y => $y{refaddr $self},
    };
};

sub new {
    my ($class, $args) = @_;

    my $self = bless \do{my $anon_scalar}, $class;

    $x{refaddr $self} = $args->{x} || 0;
    $y{refaddr $self} = $args->{y} || 0;

    return $self;
}

sub DESTROY {
    my $self = shift;

    delete $x{refaddr $self};
    delete $y{refaddr $self};
}

1;

point.t

use Test2::V0 -target => 'Point';
use Data::Dumper::Concise qw< Dumper >;

subtest $CLASS => sub {

    subtest 'string overloading' => sub {
        is(
            sprintf( '%s', $CLASS->new ),
            Dumper({ x => 0, y => 0 }),
            'should be a Data::Dumper representation',
        );
    };

};

done_testing;