Debug map() in template

databind
vitalif 2010-07-04 16:59:02 +00:00 committed by Vitaliy Filippov
parent 9917d2a656
commit 0bd7cad754
1 changed files with 4 additions and 4 deletions

View File

@ -757,10 +757,10 @@ sub function_map
{
my $self = shift;
my $f = shift;
$f = "function_$f";
$self->can($f) || return undef;
$f = $self->$f('$_');
return fearr("map{$f}", 0, $self, @_);
my $def = $self->varref('_');
$def = "\Q$def\E";
$f =~ s/$def/\$_/giso;
return '[ '.fearr('map { '.$f.' }', 0, $self, @_).' ]';
}
# подмассив