--- a/Lib/IMPL/Object.pm	Tue Mar 02 20:12:02 2010 +0300
+++ b/Lib/IMPL/Object.pm	Tue Mar 02 20:15:57 2010 +0300
@@ -19,8 +19,13 @@
     'IMPL::Class::Property::Direct'
 }
 
+1;
+
+__END__
+
 =pod
-=h1 SYNOPSIS
+
+=head1 SYNOPSIS
 
 package Foo;
 use base qw(IMPL::Object);
@@ -75,12 +80,13 @@
 # Bar:
 # Composite: Hello World!
 
-=h1 Description
+=head1 Description
+
 Базовый класс для объектов, основанных на хеше.
 
-=h1 Members
+=head1 Members
 
-=level 4
+=over
 
 =item operator C<new>(@args)
 
@@ -92,12 +98,10 @@
 
 =back
 
-=р1 Cavearts
+=head1 Cavearts
 
 Нужно заметить, что директива C<use base> работает не совсем прозрачно, если в нашем примере
 класс C<Composite> наследуется от C<Baz>, а затем C<Foo>, то наследование от
 C<Foo> не произойдет поскольку он уже имеется в C<Baz>. Вот не задача:)
 
 =cut
-
-1;