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

pass code by reference

databind
vitalif 2011-03-23 01:51:00 +00:00 committed by Vitaliy Filippov
parent 38601640ca
commit b422615f2f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
VMX/Template.pm
View File

@ -64,7 +64,8 @@ sub error
{ {
$e = $e." at ".$self->{input_filename}.":".$self->{input_line}; $e = $e." at ".$self->{input_filename}.":".$self->{input_line};
} }
$e = __PACKAGE__ . "::error: $e\n"; my $c = [caller 1];
$e = $c->[3].": $e\n";
push @{$self->{errors}}, $e; push @{$self->{errors}}, $e;
die $e if $self->{raise_error}; die $e if $self->{raise_error};
return $self->{print_error} ? join('', @{$self->{errors}}) : undef; return $self->{print_error} ? join('', @{$self->{errors}}) : undef;
@ -149,7 +150,7 @@ sub parse
sub parse_inline sub parse_inline
{ {
my ($self, $code, $vars) = @_; my ($self, $code, $vars) = @_;
return $self->parse_real(undef, $code, '_main', $vars); return $self->parse_real(undef, $_[1], '_main', $vars);
} }
# "Реальная" функция, обрабатывающая все вызовы типа parse # "Реальная" функция, обрабатывающая все вызовы типа parse
@ -168,7 +169,7 @@ sub parse_real
} }
else else
{ {
$textref = \( $textref ); $textref = \( $_[1] );
} }
my $str = $self->compile($textref, $fn); my $str = $self->compile($textref, $fn);
$function ||= '_main'; $function ||= '_main';