[gitmo/MooseX-Singleton.git] / lib / MooseX / Singleton / Meta / Class.pm

#!/usr/bin/env perl
package MooseX::Singleton::Meta::Class;
use Moose;
use MooseX::Singleton::Meta::Instance;

extends 'Moose::Meta::Class';

sub initialize {
    my $class = shift;
    my $pkg   = shift;

    $class->SUPER::initialize(
        $pkg,
        instance_metaclass => 'MooseX::Singleton::Meta::Instance',
        @_,
    );
};

1;
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