# HG changeset patch
# User wizard@linux-odin.local
# Date 1267550157 -10800
# Node ID f4e045e47770278303f97a611d76f752db7f7ee3
# Parent  15d7209135629a95b53e9f7f352c32c758670d3a# Parent  cf23fd8423f41c1af0d0631dcd651063a38ea9c5
commit

diff -r 15d720913562 -r f4e045e47770 Lib/IMPL/Object.pm
--- 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;