1package Business::EDI::CodeList::LengthOfObjectInOctetsOfBits; 2 3use base 'Business::EDI::CodeList'; 4my $VERSION = 0.02; 5sub list_number {return "0810";} 6my $usage = 'B'; # guessed value 7 8# 0810 Length of object in octets of bits [] 9# Desc: 10# Repr: 11my %code_hash = ( 12 13); 14sub get_codes { return \%code_hash; } 15 161; 17