package IIa66da94aed9b371a0ee16b72f938ea09::tag_set; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my ($var, $value, $expr) = ("#{$attr->{var}}", $attr->{value}, $attr->{expr}); $this->evaluate for $var; my $oper = $attr->{default} ? '||=' : '='; if (length $value) { $this->evaluate(1) for $value; $this->addCode(qq/$var $oper $value;/); } elsif ($expr) { $this->evaluate for $expr; $this->addCode(qq/$var $oper $expr;/); } else { $this->addCode(qq/$var $oper undef;/); } return; } 1; 