package IIa66da94aed9b371a0ee16b72f938ea09::tag_objects; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my ($class, $search, $var) = ($attr->{class}, $attr->{search}, "#{$attr->{var}}"); $this->evaluate(1) for $class; $this->evaluate for $search, $var; my $classHandler = "Zen::PerlHandler"; $this->addCode(qq/$var = $classHandler\->get($class.'->search')->do($search);/); $this->addCode(qq/\$_ = \$_->getView for \@{ $var };/); return; } 1; 