Mercurial > pub > Impl
view Lib/IMPL/Object/Singleton.pm @ 46:75148ccd732d
Upgrading resources
author | Sergey |
---|---|
date | Tue, 02 Feb 2010 17:09:49 +0300 |
parents | 1b1fb9d54f55 |
children | 16ada169ca75 |
line wrap: on
line source
package IMPL::Object::Singleton; use strict; use warnings; my %instances; sub instance { my $self = shift; $instances{$self} || ($instances{$self} = $self->new(@_)); } 1; __END__ =pod =head1 SYNOPSIS package Foo; use base qw(IMPL::Object IMPL::Object::Singleton); #.... Foo->isnatnce->some_work(); Foo->isnatnce->get_result(); =head1 DESCRIPTION Реализует шаблон Singleton =head1 MEMBERS =head2 OPERATORS =list =item C<instance CLASS(@params)> Создает или возвращает экземпляр класса, если экземляр не существует, то он создается с параметрами C<@params>. =over =cut