File Coverage

blib/lib/Business/EDI/CodeList/NumberOfSegmentsInAMessage.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::NumberOfSegmentsInAMessage;
2              
3 6     6   35 use base 'Business::EDI::CodeList';
  6         175  
  6         916  
4             my $VERSION = 0.02;
5 16     16 0 237 sub list_number {return "0074";}
6             my $usage = 'B'; # guessed value
7              
8             # 0074 Number of segments in a message []
9             # Desc:
10             # Repr:
11             my %code_hash = (
12              
13             );
14 16     16 0 435 sub get_codes { return \%code_hash; }
15              
16             1;