File Coverage

blib/lib/Business/EDI/CodeList/MessageReferenceNumber.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 8 10 80.0


line stmt bran cond sub pod time code
1             package Business::EDI::CodeList::MessageReferenceNumber;
2              
3 7     7   40 use base 'Business::EDI::CodeList';
  7         11  
  7         1332  
4             my $VERSION = 0.02;
5 35     35 0 135 sub list_number {return "0062";}
6             my $usage = 'B'; # guessed value
7              
8             # 0062 Message reference number []
9             # Desc:
10             # Repr:
11             my %code_hash = (
12              
13             );
14 35     35 0 102 sub get_codes { return \%code_hash; }
15              
16             1;