package A;
our %created_objs : unique;

sub new {
...
bless $self, $class;
$created_objs{ $self } = 1;
return $self;
}