view Lib/IMPL/Object/Singleton.pm @ 70:2dfb0b0ad12f

More docs
author wizard
date Wed, 24 Mar 2010 17:42:04 +0300 (2010-03-24)
parents 16ada169ca75
children 0d2337e203c0
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