package IIc0dddbcc5525420e139003092ae80eb6::goth; use strict; use Zen::PerlHandler; use II982446f8950cc3dc59e487adba22df54; sub get { my ($view, $f) = @_; my ($tmpl, $cfgsec) = split ',', Zen::PerlHandler->getStatList, 2; my $C = { View => $view, Object => $view->getDecorated, Field => $f, Value => $view->getDecorated->{$f} }; my $G = II720d6e18aa34327713eb014408fc9144::IlllIllllIllIIIl($II720d6e18aa34327713eb014408fc9144::llIlIIIlIlIlIlIl{$II720d6e18aa34327713eb014408fc9144::lIIIIIlIIIlIIIII},987,$II720d6e18aa34327713eb014408fc9144::llIlIIIlIlIlIlIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlllllIllIIlIl})->get($tmpl) or die "no tmpl [$tmpl]"; my $out = $G->execute($C); return $out ? join('', @$out) : undef; } 1; 