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