in reply to Re: Making an Existing Class a Singleton
in thread Making an Existing Class a Singleton

Rather than duplicating the whole parent class method, you can let it do most of the work:
my $singleton; sub new { my $proto = shift; if ( !defined $singleton ) { $singleton = $proto->SUPER::new( @_ ); } return $singleton; }