diff Lib/IMPL/Code/Binding.pm @ 226:b6cde007a175

Added resource contract
author sergey
date Wed, 05 Sep 2012 15:10:26 +0400
parents a1e868b0fba9
children 6d8092d8ce1b
line wrap: on
line diff
--- a/Lib/IMPL/Code/Binding.pm	Fri Aug 31 16:41:18 2012 +0400
+++ b/Lib/IMPL/Code/Binding.pm	Wed Sep 05 15:10:26 2012 +0400
@@ -25,9 +25,9 @@
         $text
     }
 CODE
-    my $body = eval $code; #$compiler_env->reval($code,'strict');
+    my $method = eval $code; #$compiler_env->reval($code,'strict');
     
-    
+    return $method;
 }
 
 1;
@@ -38,7 +38,7 @@
 
 =head1 NAME
 
-C<IMPL::Code::Binding> - превращает выражения в связыватель
+C<IMPL::Code::Binding> - превращает выражения в процедуру.
 
 =head1 SYNOPSIS
 
@@ -51,7 +51,8 @@
 my $person = DB->SearchPerson({name => 'Peter'})->First;
 
 my $bind = Binding->new(
-    [qw(obj)] => q{ $obj->addresses->[0]->country->code }
+    [qw(obj)] =>
+    q{ $obj->addresses->[0]->country->code }
 );
 
 print $bind->($person);
@@ -65,8 +66,7 @@
 
 Выражение параметризуется произвольным количеством именованных параметров,
 которые будут доступны внутри выражения как переменные. При создании связывателя
-в конструктор передается выражение связывания, ссылка насписок из параметров
-и могут быть переданы связи для копозиции.
+в конструктор передается выражение связывания, ссылка насписок из параметров.
 
 При создания связывателя будет проверен синтаксис, и если в выражении допущена
 ошибка, возникнет исключение.
@@ -76,7 +76,7 @@
 
 =head1 MEMBERS
 
-=head2 C<new($expression,\@vars,\%bindings)>
+=head2 C<new(\@vars,$expression)>
 
 Возвращает ссылку на процедуру.