package IIa66da94aed9b371a0ee16b72f938ea09::tag_embed; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my $asvar = $attr->{asvar} or $this->harakiri('no asvar'); if ($attr->{tmpl}) { my $tmpl = $attr->{tmpl}; $this->evaluate for $tmpl; $this->addCode('{'); $this->addCode(qq/my \$G = (ref \$this)->get("$tmpl", \$this->{param}) or die "no skel $tmpl";/); $this->addCode('my $out1 = $this->getOutput;'); $this->addCode("\$C->{$asvar} = join('', \@\$out1);"); $this->addCode('@$out1 = ();'); $this->addCode('my $out2 = $G->execute($C);'); $this->addCode('$this->out(@$out2) if $out2;'); $this->addCode('}'); } elsif ($attr->{tmplcodevar}) { my $tcv = "#{$attr->{tmplcodevar}}"; $this->evaluate for $tcv; $this->addCode('{'); $this->addCode('my $out1 = $this->getOutput;'); $this->addCode("\$C->{$asvar} = join('', \@\$out1);"); $this->addCode('@$out1 = ();'); $this->addCode("my \$out2 = IIb39071a48a82a07eeb9256f406abebc5::IIlIlIlIIllllIIl($II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$IIb39071a48a82a07eeb9256f406abebc5::llllIIIlllllIlII},987,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$II720d6e18aa34327713eb014408fc9144::IIIIIlllIllIIlII})->executeCode(\$C, $tcv);"); $this->addCode('$this->out(@$out2) if $out2;'); $this->addCode('}'); } else { $this->harakiri('need tmpl or tmplcodevar'); } return; } 1; 