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