2 package MooseX::Singleton::Object;
4 use metaclass 'MooseX::Singleton::Meta::Class';
6 extends 'Moose::Object';
13 # create exactly one instance
14 if (!defined ${"$class\::singleton"}) {
15 ${"$class\::singleton"} = super;
18 return ${"$class\::singleton"};
21 sub instance { shift->new }