projects
/
gitmo/MooseX-Singleton.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
38f22ecf56956ec2065c871193f7fb5b2f688c20
[gitmo/MooseX-Singleton.git]
/
lib
/
MooseX
/
Singleton.pm
1
package MooseX::Singleton;
2
3
use Moose::Role;
4
5
our $VERSION = 0.01;
6
7
override new => sub {
8
my ($class) = @_;
9
10
no strict qw/refs/;
11
12
my $instance = super;
13
14
${"$class\::singleton"} = $instance;
15
16
return $instance;
17
};
18
19
sub instance {
20
my ($class) = @_;
21
22
no strict qw/refs/;
23
24
return ${"$class\::singleton"};
25
}
26
27
1;
28