--- a/Lib/IMPL/Object/Singleton.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/Object/Singleton.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,47 +1,47 @@
-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
\ No newline at end of file
+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