291 |
next unless defined $data->{$attr}; |
next unless defined $data->{$attr}; |
292 |
my $v = $data->{$attr}; |
my $v = $data->{$attr}; |
293 |
if ( $html_markup && ! $html_markup_skip->{$attr} ) { |
if ( $html_markup && ! $html_markup_skip->{$attr} ) { |
294 |
eval "\$v = $html_markup->$attr( \$v );"; |
eval "\$v = $html_markup->$attr( \$v, \$data );"; |
295 |
if ( $@ ) { |
if ( $@ ) { |
296 |
warn "disable html markup for $attr: $@"; |
warn "disable html markup for $attr: $@"; |
297 |
$html_markup_skip->{$attr} = $@; |
$html_markup_skip->{$attr} = $@; |