use Modern::Perl;
use Testing;
use Data::Dump qw/dump/;

my $object = Testing->new;
say dump($object);