lib/MooseX/Singleton/Meta/Class.pm

   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