/usr/share/perl5/Apache/Singleton.pm is in libapache-singleton-perl 0.16-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 148 149 150 151 152 153 154 155 | package Apache::Singleton;
$Apache::Singleton::VERSION = '0.16';
# ABSTRACT: Singleton class for mod_perl
use strict;
# load appropriate subclass
if ($ENV{MOD_PERL}) {
require Apache::Singleton::Request;
}
else {
require Apache::Singleton::Process;
}
sub instance {
my $class = shift;
my $instance = $class->_get_instance;
unless (defined $instance) {
$instance = $class->_new_instance(@_);
$class->_set_instance($instance);
}
return $instance;
}
sub _new_instance {
my $class = shift;
my %args = (@_ && ref $_[0] eq 'HASH') ? %{ $_[0] } : @_;
bless { %args }, $class;
}
# Abstract methods, but compatible default
sub _get_instance {
my $class = shift;
if ($ENV{MOD_PERL}) {
$class->Apache::Singleton::Request::_get_instance(@_);
}
else {
$class->Apache::Singleton::Process::_get_instance(@_);
}
}
sub _set_instance {
my $class = shift;
if ($ENV{MOD_PERL}) {
$class->Apache::Singleton::Request::_set_instance(@_);
}
else {
$class->Apache::Singleton::Process::_set_instance(@_);
}
}
1;
__END__
=pod
=head1 NAME
Apache::Singleton - Singleton class for mod_perl
=head1 VERSION
version 0.16
=head1 SYNOPSIS
package Printer;
# default:
# Request for mod_perl env
# Process for non-mod_perl env
use base qw(Apache::Singleton);
package Printer::PerRequest;
use base qw(Apache::Singleton::Request);
package Printer::PerProcess;
use base qw(Apache::Singleton::Process);
=head1 DESCRIPTION
Apache::Singleton works the same as Class::Singleton, but with
various object lifetime (B<scope>). See L<Class::Singleton> first.
=head1 OBJECT LIFETIME
By inheriting one of the following sublasses of Apache::Singleton,
you can change the scope of your object.
=over 4
=item Request
use base qw(Apache::Singleton::Request);
One instance for one request. Apache::Singleton will remove instance
on each request. Implemented using mod_perl C<pnotes> API. In mod_perl
environment (where C<$ENV{MOD_PERL}> is defined), this is the default
scope, so inheriting from Apache::Singleton would do the same effect.
B<NOTE>: You need C<PerlOptions +GlobalRequest> in your apache
configuration in order to use the I<Request> lifetime method.
=item Process
use base qw(Apache::Singleton::Process);
One instance for one httpd process. Implemented using package
global. In non-mod_perl environment, this is the default scope, and
you may notice this is the same beaviour with Class::Singleton ;)
So you can use this module safely under non-mod_perl environment.
=back
=head1 CREDITS
Original idea by Matt Sergeant E<lt>matt@sergeant.orgE<gt> and Perrin
Harkins E<lt>perrin@elem.comE<gt>.
Initial implementation and versions 0.01 to 0.07 by Tatsuhiko Miyagawa
E<lt>miyagawa@bulknews.netE<gt>.
=head1 SEE ALSO
L<Apache::Singleton::Request>, L<Apache::Singleton::Process>,
L<Class::Singleton>
=head1 SOURCE
The development version is on github at L<http://github.com/mschout/apache-singleton>
and may be cloned from L<git://github.com/mschout/apache-singleton.git>
=head1 BUGS
Please report any bugs or feature requests to bug-apache-singleton@rt.cpan.org or through the web interface at:
http://rt.cpan.org/Public/Dist/Display.html?Name=Apache-Singleton
=head1 AUTHOR
Michael Schout <mschout@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2009 by Michael Schout.
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
|