package IIc0dddbcc5525420e139003092ae80eb6::relobjviews; use strict; use Zen::PerlHandler; sub get { my ($view, $f) = @_; my $class = Zen::PerlHandler->getStatList; my $object = $view->getDecorated; Zen::PerlHandler->get("$class\->search")->do(WHERE => "find_in_set(id,'$object->{$f}')"); my @list = map { Zen::PerlHandler->get("$class\->get")->do($_) } split(',', $object->{$f}); $_ = $_->getView for @list; \@list; } 1; 