package II3562149e53818b6637b38680e87ba918::parse; use strict; use II8b55f24974af3d53369c3d9cea404f55; sub get { my ($form, $f) = @_; my $code = Zen::PerlHandler->getStatList; return IIb39071a48a82a07eeb9256f406abebc5::IIllIIIIIIlIIlII($IIb39071a48a82a07eeb9256f406abebc5::lIIIIlIlIlllIIlI{$II720d6e18aa34327713eb014408fc9144::lIIIlllIlllIIllI},1009,$IIb39071a48a82a07eeb9256f406abebc5::lIIIIlIlIlllIIlI{$II982446f8950cc3dc59e487adba22df54::lIIlIIIIIlIlIllI})->new($form->getDecorated)->parse($code); } sub set { my ($form, $f, $v) = @_; if (defined($v)) { $v =~ s/^[\s\t]+//; $v =~ s/[\s\t]+$//; } $form->getDecorated->{$f} = $v; return; } 1; 