/usr/share/perl5/MooseX/Singleton.pm is in libmoosex-singleton-perl 0.29-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | package MooseX::Singleton;
BEGIN {
$MooseX::Singleton::AUTHORITY = 'cpan:SARTAK';
}
{
$MooseX::Singleton::VERSION = '0.29';
}
use Moose 1.10 ();
use Moose::Exporter;
use MooseX::Singleton::Role::Object;
use MooseX::Singleton::Role::Meta::Class;
use MooseX::Singleton::Role::Meta::Instance;
Moose::Exporter->setup_import_methods( also => 'Moose' );
sub init_meta {
shift;
my %p = @_;
Moose->init_meta(%p);
my $caller = $p{for_class};
Moose::Util::MetaRole::apply_metaroles(
for => $caller,
class_metaroles => {
class => ['MooseX::Singleton::Role::Meta::Class'],
instance =>
['MooseX::Singleton::Role::Meta::Instance'],
constructor =>
['MooseX::Singleton::Role::Meta::Method::Constructor'],
},
);
Moose::Util::MetaRole::apply_base_class_roles(
for_class => $caller,
roles =>
['MooseX::Singleton::Role::Object'],
);
return $caller->meta();
}
1;
# ABSTRACT: turn your Moose class into a singleton
=pod
=head1 NAME
MooseX::Singleton - turn your Moose class into a singleton
=head1 VERSION
version 0.29
=head1 SYNOPSIS
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;
=head1 DESCRIPTION
A singleton is a class that has only one instance in an application.
C<MooseX::Singleton> lets you easily upgrade (or downgrade, as it were) your
L<Moose> class to a singleton.
All you should need to do to transform your class is to change C<use Moose> to
C<use MooseX::Singleton>. This module uses metaclass roles to do its magic, so
it should cooperate with most other C<MooseX> modules.
=head1 METHODS
A singleton class will have the following additional methods:
=head2 Singleton->instance
This returns the singleton instance for the given package. This method does
I<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> will die if the object has not already been
initialized.
=head2 Singleton->initialize(%args)
This method can be called I<only once per class>. It explicitly initializes
the singleton object with the given arguments.
=head2 Singleton->_clear_instance
This clears the existing singleton instance for the class. Obviously, this is
meant for use only inside the class itself.
=head2 Singleton->new
This method currently works like a hybrid of C<initialize> and
C<instance>. However, calling C<new> directly will probably be deprecated in a
future release. Instead, call C<initialize> or C<instance> as appropriate.
=head1 BUGS
Please report any bugs or feature requests to
C<bug-moosex-singleton@rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>. We will be notified, and then you'll automatically be
notified of progress on your bug as we make changes.
=head1 SOME CODE STOLEN FROM
Anders Nor Berle E<lt>debolaz@gmail.comE<gt>
=head1 AND PATCHES FROM
Ricardo SIGNES E<lt>rjbs@cpan.orgE<gt>
=head1 AUTHOR
Shawn M Moore <sartak@gmail.com>
=head1 COPYRIGHT AND LICENSE
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.
=cut
__END__
|