package IIa66da94aed9b371a0ee16b72f938ea09::tag_macro; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; $this->harakiri('no var') unless $attr->{var}; my $var = "#{$attr->{var}}"; $this->evaluate for $var; $this->addCode("$var = sub {"); $this->{Indent}++; $this->addCode('$this->replaceOutput([]);'); $this->{Macros}{$attr->{var}} = 1; return; } sub end { my $this = shift; $this->addCode('return join("",@{ $this->restoreOutput });'); $this->endBracket(@_); $this->addCode(';'); } 1; 