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($@); }
-- Randal L. Schwartz, Perl hacker
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Perl Singletons
by Aristotle (Chancellor) on Jul 19, 2002 at 20:44 UTC |
In Section
Tutorials