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 | ||
109b110b | 8 | sub instance { shift->new } |
9 | ||
10 | 1; | |
11 | ||
b375b147 | 12 | __END__ |
13 | ||
14 | =pod | |
15 | ||
16 | =head1 NAME | |
17 | ||
18 | MooseX::Singleton::Object - base class for MooseX::Singleton | |
19 | ||
20 | =head1 DESCRIPTION | |
21 | ||
22 | This just adds C<instance> as a shortcut for C<new>. | |
23 | ||
24 | =cut | |
25 |