diff Lib/IMPL/Web/Application/CustomResource.pm @ 295:9b25e1f50144

sync
author cin
date Fri, 01 Mar 2013 03:15:30 +0400
parents 814d755e5d12
children fe725fad2d90
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/CustomResource.pm	Thu Feb 28 02:19:38 2013 +0400
+++ b/Lib/IMPL/Web/Application/CustomResource.pm	Fri Mar 01 03:15:30 2013 +0400
@@ -45,6 +45,12 @@
     )
 }
 
+sub CreateResource {
+    my ($self,%args) = @_;
+    
+    $self->CreateContract()->CreateResource(%args);
+}
+
 sub GetChildResources {
     
 }
@@ -111,6 +117,10 @@
 конструкторе будет передан список из ключей и значений хеша C<%args>, а затем
 остальные аргументы.
 
+=head2 C<[static]CreateResource(%args)>
+
+Создает контракт по-умолчанию и вызывает у него метод C<CreateResource(%args)>.
+
 =head2 C<[static]GetChildResources()>
 
 Статический метод, который должны переопределять новые классы ресурсов, у