vitalif
/
VMXTemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Debug VMX::Template

databind
vitalif 2010-05-17 18:03:45 +00:00 committed by Vitaliy Filippov
parent 269fff99aa
commit 9959ce66dc
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
VMX/Template.pm
View File

@ -365,13 +365,16 @@ sub compile_code_fragment_set
$e = $self->compile_expression($3);
unless (defined $e)
{
warn "Invalid expression in $kw: ($')";
warn "Invalid expression in $kw: ($3)";
return undef;
}
}
else
{
push @{$self->{in}}, [ 'set', $1 ];
$self->{in_set}++;
}
my $ekw = lc($kw) eq 'function' ? 'sub { my $self = shift; local $self->{tpldata}->{args} = [ @_ ];' : 'eval {';
push @{$self->{in}}, [ 'set', $1 ];
$self->{in_set}++;
return $self->varref($1) . ' = ' . ($e || $ekw . ' my $t = ""') . ";\n";
}
*compile_code_fragment_function = *compile_code_fragment_set;
@ -727,6 +730,7 @@ sub function_hget { "($_[1])->\{$_[2]}" }
# для массива
sub function_aget { "($_[1])->\[$_[2]]" }
sub function_array_merge { shift; '[@{'.join('},@{',@_).'}]' }
sub function_shift { "shift(\@{$_[1]})"; }
sub function_pop { "pop(\@{$_[1]})"; }
sub function_unshift { shift; "unshift(\@{".shift(@_)."}, ".join(",", @_).")"; }