package IIf7ceb54dedce7c84ee40a47ab6f59667; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use Zen; use Zen::PerlHandler; use II08fa1394ec7538b161a4e6fc836eddfd; use Data::Dumper; BEGIN{*IIf7ceb54dedce7c84ee40a47ab6f59667::IlIIIlllIIIllIII=\%{pack('H6','021f61')^'GQ7'};*IIf7ceb54dedce7c84ee40a47ab6f59667::lIlIIlIIllIIlIIl=\&{pack('H24','252958236c073f080520317e')^'HH1MV=L02BIJ'};$IIf7ceb54dedce7c84ee40a47ab6f59667::lIlIllIIlIlIIIll=pack('H18','18001e06060b0c6402')^'PTJVYCC7V';$IIf7ceb54dedce7c84ee40a47ab6f59667::IllIIlllIIllIIII=pack('H12','1c1b167c777a')^'VRX0>9'};sub feObject { die 'must be overriden' } BEGIN{*IIf7ceb54dedce7c84ee40a47ab6f59667::IlIIlIllIIlIlllI=\%{pack('H6','14061c')^'QHJ'};*IIf7ceb54dedce7c84ee40a47ab6f59667::lllIlllIlIlIlIIl=\&{pack('H24','2e5a575c07603f6a76583176')^'C;>2=ZLRA:IB'};$IIf7ceb54dedce7c84ee40a47ab6f59667::IIIIIIIIllIIlIII=pack('H18','1a1d15001c771b1869')^'RIAPC?TK=';$IIf7ceb54dedce7c84ee40a47ab6f59667::llllIlIIllIlIlIl=pack('H12','050a72140d0d')^'OC<XDN'};sub feData { my $proto = shift; $proto->classdata->{FEData} ||= $proto->feObject->getView->getData; } BEGIN{*IIf7ceb54dedce7c84ee40a47ab6f59667::IIIIlIIlIIIllIIl=\%{pack('H6','787a15')^'=4C'};*IIf7ceb54dedce7c84ee40a47ab6f59667::lIIllIIIIIIIlIlI=\&{pack('H24','3d585a370409426273372c08')^'P93Y>31ZDUT<'};$IIf7ceb54dedce7c84ee40a47ab6f59667::lIIIIIIlIIllIlII=pack('H18','031d131f0d020b6018')^'KIGORJD3L';$IIf7ceb54dedce7c84ee40a47ab6f59667::lIlIIIlIllIIllll=pack('H12','7973040b7072')^'3:JG91'};sub fields { my $proto = shift; my $d = $proto->feData; grep { $d->{Fields}{$_}{enabled} } @{ $d->{List} }; } BEGIN{*IIf7ceb54dedce7c84ee40a47ab6f59667::lIIIIlIIIlIlIIIl=\%{pack('H6','13096b')^'VG='};*IIf7ceb54dedce7c84ee40a47ab6f59667::lIIIIlIIIllIlIll=\&{pack('H24','295e225103764277085c4b08')^'D?K?9L1O?>3<'};$IIf7ceb54dedce7c84ee40a47ab6f59667::IlIIIIIIlllIlIlI=pack('H18','1a196e6c127a736402')^'RM:<M2<7V';$IIf7ceb54dedce7c84ee40a47ab6f59667::IIIllIlllllllIlI=pack('H12','740a1e7d0606')^'>CP1OE'};sub required { my $proto = shift; my $d = $proto->feData; grep { $d->{Fields}{$_}{mandatory} } $proto->fields; } BEGIN{*IIf7ceb54dedce7c84ee40a47ab6f59667::IllIlllllIllIllI=\%{pack('H6','007a14')^'E4B'};*IIf7ceb54dedce7c84ee40a47ab6f59667::lIlIlllllIIlIIII=\&{pack('H24','5235545b7a023e747e344509')^'?T=5@8MLIV=='};$IIf7ceb54dedce7c84ee40a47ab6f59667::IIIllIlIlIlIIlll=pack('H18','726d11086f047f1610')^':9EX0L0ED';$IIf7ceb54dedce7c84ee40a47ab6f59667::lIIllIlllIIlIlIl=pack('H12','0e7d75190e00')^'D4;UGC'};sub new { my ($class, $decoratedObject, $pfx) = @_; my $this = $class->SUPER::new($decoratedObject, $pfx); my $d = $class->feData; my $dd = Dumper($d); for my $f ($class->fields) { my $typeName = $d->{Fields}{$f}{type}; my $type = $d->{Types}{$typeName}{type} or die "type named [$typeName] is not defined | [$dd]"; $class->standardHandler($f, $f => $type); } $this; } BEGIN{*IIf7ceb54dedce7c84ee40a47ab6f59667::IllllIlllIIIIIll=\%{pack('H6','1d0c1b')^'XBM'};*IIf7ceb54dedce7c84ee40a47ab6f59667::IIIIIIIIllllIlII=\&{pack('H24','5d56503c7906220762253775')^'079RC<Q?UGOA'};$IIf7ceb54dedce7c84ee40a47ab6f59667::llllIIlIlIIIIlll=pack('H18','06176d69641f796a14')^'NC99;W69@';$IIf7ceb54dedce7c84ee40a47ab6f59667::IlIIlllllIIIlllI=pack('H12','00101b780d70')^'JYU4D3'};sub getNames { my $this = shift; $this->classdata->{names} ||= do { my $d = $this->feData; +{ map { $_ => $d->{Fields}{$_}{title} } $this->fields }; }; } 1; 