NAME
Hyper::Singleton - base class which implements the singleton design pattern
VERSION
This document describes Hyper::Singleton 0.01
SYNOPSIS
package Hyper::Singleton::Sample;
use Class::Std::Storable;
use base qw(Hyper::Singleton);
1;
my $instance_1 = Hyper::Singleton::Sample->singleton();
my $instance_2 = Hyper::Singleton::Sample->singleton();
ref $instance_1 eq ref $instance_2;DESCRIPTION
Hyper::Singleton gives the inheriting class the singleton method, which is used to get only one object of this class on every call.
SUBROUTINES/METHODS
BUILD
my $new_instance = Hyper::Singleton::Debug->new();Create a new Object instance.
singleton
my $instance = Hyper::Singleton::Sample->singleton();Get the object as singleton.
_init_singleton :PRIVATE
$self->_init_singleton();Initializes the singleton and stores it to our global vars.
_get_singleton :PRIVATE
my $existant_instance = $self->_get_singleton();Get existant instance of the singleton object.
_get_request_object :PRIVATE
my $r = $self->_get_request_object();Get the apache request object in mod perl environments.
_get_identifier :PRIVATE
my $identifier = $self->_get_identifier();Get the apache request object in mod perl environments.
STORABLE_thaw_post :CUMULATIVE
Reinitialize our object on thaw.
DIAGNOSTICS
CONFIGURATION AND ENVIRONMENT
DEPENDENCIES
version
Class::Std::Storable
Apache2::RequestUtil
Apache::RequestUtil
INCOMPATIBILITIES
BUGS AND LIMITATIONS
RCS INFORMATIONS
- Last changed by
-
$Author: ac0v $
- Id
-
$Id: Singleton.pm 351 2008-04-08 10:17:43Z ac0v $
- Revision
-
$Revision: 351 $
- Date
-
$Date: 2008-04-08 12:17:43 +0200 (Tue, 08 Apr 2008) $
- HeadURL
-
$HeadURL: file:///srv/cluster/svn/repos/Hyper/Hyper/trunk/lib/Hyper/Singleton.pm $
AUTHOR
Andreas Specht <ACID@cpan.org>
LICENSE AND COPYRIGHT
Copyright (c) 2007, Andreas Specht <ACID@cpan.org>. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.