Mercurial > pub > Impl

diff Lib/IMPL/Object.pm @ 180:d1676be8afcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Перекодировка в utf-8
author sourcer
date Fri, 30 Dec 2011 23:40:00 +0300
parents 76515373dac0
children 6d8092d8ce1b
line wrap: on
line diff
--- a/Lib/IMPL/Object.pm	Tue Dec 20 23:00:30 2011 +0300
+++ b/Lib/IMPL/Object.pm	Fri Dec 30 23:40:00 2011 +0300
@@ -7,6 +7,8 @@
     bless {}, ref $_[0] || $_[0];
 }
 
+__PACKAGE__->static_accessor( propertyInfoClass => 'IMPL::Class::DirectPropertyInfo' );
+
 sub new {
     my $class = shift;
     my $self = bless {}, ref($class) || $class;    
@@ -86,7 +88,7 @@
 
 =head1 Description
 
-   ,   .
+Базовый класс для объектов, основанных на хеше.
 
 =head1 Members
 
@@ -94,18 +96,18 @@
 
 =item operator C<new>(@args)
 
-        @args.
+Создает экземпляр объекта и вызывает конструктор с параметрами @args.
 
 =item operator C<surrogate>()
 
-   .
+Создает неинициализированный экземпляр объекта.
 
 =back
 
 =head1 Cavearts
 
- ,   C<use parent>    ,    
- C<Composite>   C<Baz>,   C<Foo>,   
-C<Foo>        C<Baz>.   :)
+Нужно заметить, что директива C<use parent> работает не совсем прозрачно, если в нашем примере
+класс C<Composite> наследуется от C<Baz>, а затем C<Foo>, то наследование от
+C<Foo> не произойдет поскольку он уже имеется в C<Baz>. Вот не задача:)
 
 =cut