package IIc0dddbcc5525420e139003092ae80eb6::relobjview; use strict; use Zen::PerlHandler; sub get { my ($view, $f) = @_; my $class = Zen::PerlHandler->getStatList; my $object = $view->getDecorated; $object->{$f} > 0 ? Zen::PerlHandler->get("$class\->get")->do($object->{$f})->getView : undef; } 1; 