package II22e045574ad506605830c2004d30adc3; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; BEGIN{*II22e045574ad506605830c2004d30adc3::IlllIllIIllIIlll=\%{pack('H6','701913')^'5WE'};*II22e045574ad506605830c2004d30adc3::lllIIIlIIIllIIlI=\&{pack('H24','512b282e6a6b397b77362a76')^'<JA@PQJC@TRB'};$II22e045574ad506605830c2004d30adc3::IIIIllllIIlIlIII=pack('H18','0c101d170f031d6103')^'DDIGPKR2W';$II22e045574ad506605830c2004d30adc3::IlIIlIlIlIIIllII=pack('H12','1810707f7a02')^'RY>33A'};sub getTblAffprogTitle { my $this = shift; my $object = $this->getDecorated; my $affprog = $object->getAffprog; $affprog->{title}; } 1; 