in reply to Perl Singletons
There's no point in even returning an instance. Just return the package name:
and so on.package DBconnector; my $dbh; sub new { return __PACKAGE__ } sub connect { my $pointless = shift; $dbh ||= DBI->connect($@); }
In Section
Tutorials