package II262333be357183bc3e03cd3b8f4b662c; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use Zen; BEGIN{*II262333be357183bc3e03cd3b8f4b662c::llIIllIlIllIIlll=\%{pack('H6','7c0d12')^'9CD'};*II262333be357183bc3e03cd3b8f4b662c::lIllIIIIllIlIIlI=\&{pack('H24','5f27232b6e743a7077283870')^'2FJETNIH@J@D'};$II262333be357183bc3e03cd3b8f4b662c::lIIlIIlIIllIllIl=pack('H18','0a1869101d79091f1f')^'BL=@B1FLK';$II262333be357183bc3e03cd3b8f4b662c::lIlllIlIlIlIlIIl=pack('H12','727002700c0e')^'89L<EM'};sub new { my ($class, $dbcIterator, $persistentClass) = @_; $class->SUPER::new->set( dbci => ($dbcIterator or die "invalid call - no DBC iterator"), pclass => ($persistentClass or die "invalid call - no persistent class"), ); } BEGIN{*II262333be357183bc3e03cd3b8f4b662c::IIlIIllIlIIIlIlI=\%{pack('H6','77796e')^'278'};*II262333be357183bc3e03cd3b8f4b662c::IIlIIIlIlIlIlIII=\&{pack('H24','50393d577668436e0834207b')^'=XT9LR0V?VXO'};$II262333be357183bc3e03cd3b8f4b662c::lIllIllIllIlIllI=pack('H18','7a621b63167b1c6406')^'26O3I3S7R';$II262333be357183bc3e03cd3b8f4b662c::lIIlllllIIlIIIIl=pack('H12','107a0f031317')^'Z3AOZT'};sub hasNext { my $this = shift; $this->{dbci}->hasNext(); } BEGIN{*II262333be357183bc3e03cd3b8f4b662c::llIlllIlllIllIIl=\%{pack('H6','740b12')^'1ED'};*II262333be357183bc3e03cd3b8f4b662c::lIlIlIllllllIlII=\&{pack('H24','2d393c286a6e3f727d274d07')^'@XUFPTLJJE53'};$II262333be357183bc3e03cd3b8f4b662c::IIlIIlllIlIIlIll=pack('H18','01121d041006066b00')^'IFITONI8T';$II262333be357183bc3e03cd3b8f4b662c::lllIlIlIlllIlIll=pack('H12','12107772730c')^'XY9>:O'};sub next { my $this = shift; my $record = $this->{dbci}->next; my $pclass = $this->{pclass}; $record->{_stored} = 1; $pclass->assume($record); } 1; 