Move actual singleton logic out of MooseX::Singleton::Object and into MooseX::Singlet...

[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',
        @_,
    );
};

override construct_instance => sub {
    my ($class) = @_;
    my $pkg = $class->name;

    no strict 'refs';

    # create exactly one instance
    if (!defined ${"$pkg\::singleton"}) {
        ${"$pkg\::singleton"} = super;
    }

    return ${"$pkg\::singleton"};
};

1;