Commit | Line | Data |
109b110b |
1 | #!/usr/bin/env perl |
2 | package MooseX::Singleton::Object; |
3 | use Moose; |
4 | use metaclass 'MooseX::Singleton::Meta::Class'; |
5 | |
6 | extends 'Moose::Object'; |
7 | |
8 | no strict 'refs'; |
9 | |
109b110b |
10 | sub instance { shift->new } |
11 | |
12 | 1; |
13 | |