package IIa66da94aed9b371a0ee16b72f938ea09::tag_call; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my $hnd = $attr->{handler} or $this->harakiri('no handler'); my $var = $attr->{var} ? "#{$attr->{var}}" : ''; $this->evaluate(1) for $hnd; $this->evaluate for $var; my $classHandler = "Zen::PerlHandler"; my $handlerCode = "$classHandler\->get($hnd)->do(\$this->{C})"; $this->addCode($var ? "$var = $handlerCode;" : "\$this->out($handlerCode);"); return; } 1; 