package IIa66da94aed9b371a0ee16b72f938ea09::tag_eval; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my ($var, $value) = ("#{$attr->{var}}", $attr->{value}); $this->evaluate for $var; $this->evaluate(1) for $value; my $class = ref($this); $this->addCode("require $class;"); $this->addCode("my \$val = $value;"); $this->addCode("$class->evaluate(1) for \$val;"); $this->addCode("eval qq(\\$var = \$val);"); $this->addCode('die($@) if $@;'); return; } 1; 