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

package MooseX::Singleton;

use Moose::Role;

our $VERSION = 0.01;

override new => sub {
  my ($class) = @_;

  no strict qw/refs/;

  my $instance = super;

  ${"$class\::singleton"} = $instance;

  return $instance;
};

sub instance {
  my ($class) = @_;

  no strict qw/refs/;

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

1;
Commit	Line	Data
443f4253	1	package MooseX::Singleton;
	2
	3	use Moose::Role;
	4
	5	our $VERSION = 0.01;
	6
	7	override new => sub {
	8	my ($class) = @_;
	9
	10	no strict qw/refs/;
	11
	12	my $instance = super;
	13
	14	${"$class\::singleton"} = $instance;
	15
	16	return $instance;
	17	};
	18
	19	sub instance {
	20	my ($class) = @_;
	21
	22	no strict qw/refs/;
	23
	24	return ${"$class\::singleton"};
	25	}
	26
	27	1;
	28