Commit | Line | Data |
---|---|---|
109b110b | 1 | #!/usr/bin/env perl |
2 | package MooseX::Singleton::Meta::Class; | |
3 | use Moose; | |
4 | use MooseX::Singleton::Meta::Instance; | |
5 | ||
6 | extends 'Moose::Meta::Class'; | |
7 | ||
8 | sub initialize { | |
9 | my $class = shift; | |
10 | my $pkg = shift; | |
11 | ||
12 | $class->SUPER::initialize( | |
13 | $pkg, | |
14 | instance_metaclass => 'MooseX::Singleton::Meta::Instance', | |
15 | @_, | |
16 | ); | |
17 | }; | |
18 | ||
19 | 1; | |
20 |