Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Creating 'universal' instances of objects?

by bm (Hermit)
on Aug 04, 2003 at 15:27 UTC ( [id://280704] : note . print w/replies, xml ) Need Help??


in reply to Creating 'universal' instances of objects?

Sounds to me that Class::Singleton is exactly what you are after.

Deriving from that class will ensure that only one instance of your class will be returned:

package Grok; use vars qw(@ISA); @ISA = qw(Class::Singleton); package Main; my $one = Grok->instance(); # returns a new instance my $two = Grok->instance(); # returns same instance
Hope this helps.