package IIa66da94aed9b371a0ee16b72f938ea09::tag_include; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; $this->addCode('{'); if ($attr->{tmpl}) { my $tmpl = $attr->{tmpl}; $this->evaluate for $tmpl; $this->addCode(qq/my \$G = (ref \$this)->get("$tmpl", \$this->{param}) or die "no skel $tmpl";/); $this->addCode('my $ctx = ' . ($attr->{noinherit} ? '{}' : '$this->{C}') . ';'); $this->addCode('my $out = $G->execute($ctx);'); } elsif ($attr->{codevar}) { my $codevar = "#{$attr->{codevar}}"; $this->evaluate for $codevar; $this->addCode('my $ctx = ' . ($attr->{noinherit} ? '{}' : '$this->{C}') . ';'); $this->addCode("my \$out = (ref \$this)->executeCode(\$ctx, $codevar);"); } else { $this->harakiri('tmpl or codevar?'); } if ($attr->{output}) { my $output = "#{$attr->{output}}"; $this->evaluate for $output; $this->addCode("$output = join('', \@\$out) if \$out;"); } else { $this->addCode('$this->out(@$out) if $out;'); } $this->addCode('}'); return; } 1; 