Mercurial > pub > Impl

diff Lib/IMPL/Object/Autofill.pm @ 198:2ffe6f661605

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implemented IMPL::Web::Handler::RestController fixes in IMPL::Serialization completed IMPL::Web::Application::RestResource added IMPL::Web::Handler::JSONView added IMPL::Web::RestContract
author cin
date Fri, 20 Apr 2012 16:06:36 +0400
parents d1676be8afcc
children c8fe3f84feba
line wrap: on
line diff
--- a/Lib/IMPL/Object/Autofill.pm	Thu Apr 19 02:10:02 2012 +0400
+++ b/Lib/IMPL/Object/Autofill.pm	Fri Apr 20 16:06:36 2012 +0400
@@ -82,9 +82,22 @@
 __END__
 
 =pod
+
+=head1 NAME
+
+C<IMPL::Object::Autofill> - автозаполнение объектов
+
 =head1 SYNOPSIS
+
+=begin code
+
 package MyClass;
-use parent qw(IMPL::Object IMPL::Object::Autofill);
+use IMPL::declare {
+	base => {
+		'IMPL::Object' => undef,
+        'IMPL::Object::Autofill' => '@_'	
+	}
+};
 
 BEGIN {
     private property PrivateData => prop_all;
@@ -93,18 +106,17 @@
 
 sub CTOR {
     my $this = shift;
-    $this->superCTOR(@_);
-    # or eqvivalent
-    # $this->supercall::CTOR(@_);
-
+    
     print $this->PrivateData,"\n";
     print $this->PublicData,"\n";
 }
 
 my $obj = new MyClass(PrivateData => 'private', PublicData => 'public', Other => 'some data');
 
-will print
-private
-public
+#will print
+#private
+#public
+
+=end code
 
 =cut