package IIa66da94aed9b371a0ee16b72f938ea09::tag_object; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my ($class, $id, $var, $view, $onEmpty, $signature) = ($attr->{class}, $attr->{id}, "#{$attr->{var}}", $attr->{view}, $attr->{onempty}, $attr->{signature}); $this->evaluate(1) for $class, $view; $this->evaluate for $id, $var, $signature; my $classHandler = "Zen::PerlHandler"; $this->addCode("my \$o = $classHandler\->get($class.'->getOrDummy')->do($id);"); $this->addCode("Zen->getRequest->finish if \$o->can('stored') && ! \$o->stored;") if $onEmpty eq 'finish'; $this->addCode("Zen->getRequest->bluescreen('url') if \$o->{signature} ne $signature;") if $signature; $this->addCode("$var = \$o->getView($view || undef);"); return; } 1; 