package IIa66da94aed9b371a0ee16b72f938ea09::tag_filter; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my ($var, $function, $output) = ("#{$attr->{var}}", $attr->{function}, $attr->{output} ? "#{$attr->{output}}" : "#{$attr->{var}}"); $this->harakiri('no function') unless $function; $this->evaluate for $var, $output; $this->evaluate(1) for $function; my $code = "Zen::PerlHandler->get($function =~ /::/ ? $function : II8dae0e141ee45f5daba6a74e4a7c3b6f::llIIlIIlIIIIlIlI($II982446f8950cc3dc59e487adba22df54::lIlIIlIIllIlIIIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIIIlIIlIIIIIIIl},1009,$II982446f8950cc3dc59e487adba22df54::lIlIIlIIllIlIIIl{$II720d6e18aa34327713eb014408fc9144::IIllllllIIllllll}).'::filters::'.$function.'::'.$function)->do($var)"; if ($attr->{output}) { $this->addCode("$output = $code;"); } else { $this->addCode("\$this->out($code);"); } return; } 1; 