# HG changeset patch
# User wizard
# Date 1267487829 -10800
# Node ID cf23fd8423f41c1af0d0631dcd651063a38ea9c5
# Parent  a1498298d3eee6d7732be159f0b5577e25e5a1fd
minor changes

diff -r a1498298d3ee -r cf23fd8423f4 Lib/IMPL/Object.pm
--- a/Lib/IMPL/Object.pm	Mon Mar 01 17:25:36 2010 +0300
+++ b/Lib/IMPL/Object.pm	Tue Mar 02 02:57:09 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;