Mercurial > pub > Impl

diff Lib/IMPL/Object.pm @ 53:cf23fd8423f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author wizard
date Tue, 02 Mar 2010 02:57:09 +0300
parents 16ada169ca75
children 259cd3df6e53
line wrap: on
line diff
--- 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;