package SomeClass;
use Class::Std::Utils;
{

    my %name_of;

    sub new {
        my ($class, $name) = @_;
        my $new_object = bless \do{my $anon_scalar}, $class;

        $name_of{ident $new_object} = $name;

        return $new_object;
    }

    sub get_name {
        my ($self) = @_;

        return $name_of{ident $self};
    }
}