--- a/Lib/IMPL/Object/Singleton.pm	Fri Jan 29 16:19:31 2010 +0300
+++ b/Lib/IMPL/Object/Singleton.pm	Tue Feb 02 17:09:49 2010 +0300
@@ -10,5 +10,38 @@
     $instances{$self} || ($instances{$self} = $self->new(@_));
 }
 
+1;
 
-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
\ No newline at end of file