Mercurial > pub > Impl
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)> Возвращает ссылку на процедуру.