package My::Singleton;

my $DATA;

sub get_data { 
    my $class = shift;
    $class->_init unless defined $DATA;
    return bless $DATA, $class;
}

sub _init { 
    $DATA = { foo => 42 };
}