package II3562149e53818b6637b38680e87ba918::hidden; use strict; use CGI qw/hidden/; sub get { my ($this, $f) = @_; CGI->hidden( -name => $this->pfx . $f, -default => [$this->getDecorated->{$f}], ); } sub set { my ($form, $f, $v) = @_; $form->getDecorated->{$f} = $v; return; } 1; 