package II3562149e53818b6637b38680e87ba918::addonly; use strict; use Zen::PerlHandler; sub get { my ($form, $f) = @_; my ($form_elm) = Zen::PerlHandler->getStatList; my $object = $form->getDecorated; $object->stored ? $object->getView->{$f} : Zen::PerlHandler->get($form_elm)->do(@_); } sub set { my ($form, $f, $v) = @_; $form->getDecorated->{$f} = $v; } 1; 