package IIa66da94aed9b371a0ee16b72f938ea09::tag_do; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my $expr = $attr->{expr}; $this->evaluate for $expr; if ($attr->{output}) { $this->addCode("my \$var = do { $expr };"); $this->addCode('\$this->out($var);'); } else { $this->addCode("$expr;"); } return; } 1; 