1 package MooseX::Singleton;
11 # create our instance if we don't already have one
12 if (!defined ${"$class\::singleton"}) {
13 ${"$class\::singleton"} = super;
16 return ${"$class\::singleton"};
19 # instance really is the same as new. any ideas for a better implementation?