Turn your moose class into a singleton
version 0.29
package MyApp; use MooseX::Singleton; has env => ( is => 'rw', isa => 'HashRef[Str]', default => sub { \%ENV }, ); package main; delete MyApp->env->{PATH}; my $instance = MyApp->instance; my $same = MyApp->instance;
A singleton is a class that has only one instance in an application. \*(C`MooseX::Singleton\*(C' lets you easily upgrade (or downgrade, as it were) your Moose class to a singleton.
All you should need to do to transform your class is to change \*(C`use Moose\*(C' to \*(C`use MooseX::Singleton\*(C'. This module uses metaclass roles to do its magic, so it should cooperate with most other \*(C`MooseX\*(C' modules.
A singleton class will have the following additional methods:
This returns the singleton instance for the given package. This method does not accept any arguments. If the instance does not yet exist, it is created with its defaults values. This means that if your singleton requires arguments, calling \*(C`instance\*(C' will die if the object has not already been initialized.
This method can be called only once per class. It explicitly initializes the singleton object with the given arguments.
This clears the existing singleton instance for the class. Obviously, this is meant for use only inside the class itself.
This method currently works like a hybrid of \*(C`initialize\*(C' and \*(C`instance\*(C'. However, calling \*(C`new\*(C' directly will probably be deprecated in a future release. Instead, call \*(C`initialize\*(C' or \*(C`instance\*(C' as appropriate.
Please report any bugs or feature requests to \*(C`[email protected]\*(C', or through the web interface at <http://rt.cpan.org>. We will be notified, and then you'll automatically be notified of progress on your bug as we make changes.
Anders Nor Berle <[email protected]>
Ricardo \s-1SIGNES\s0 <[email protected]>
Shawn M Moore <[email protected]>
This software is copyright (c) 2011 by Shawn M Moore.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.