Mercurial > pub > Impl

comparison Lib/IMPL/Code/Binding.pm @ 230:6d8092d8ce1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author sergey
date Mon, 08 Oct 2012 03:37:37 +0400
parents b6cde007a175
children
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
9 sub new { 9 sub new {
10 my ($self,$expr,$vars) = @_; 10 my ($self,$expr,$vars) = @_;
11 11
12 $vars ||= []; 12 $vars ||= [];
13 13
14 die ArgumentException( vars => 'A reference to an array is required') 14 die ArgumentException->new( vars => 'A reference to an array is required')
15 unless ref $vars eq 'ARRAY'; 15 unless ref $vars eq 'ARRAY';
16 16
17 m/^\w+$/ or die ArgumentException->new( vars => 'A valid variable name is required', $_ ) 17 m/^\w+$/ or die ArgumentException->new( vars => 'A valid variable name is required', $_ )
18 foreach @$vars; 18 foreach @$vars;
19 19