File Coverage

blib/lib/Business/EDI/CodeList/PriceCodeQualifier.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::PriceCodeQualifier;
2              
3 4     4   20 use base 'Business::EDI::CodeList';
  4         8  
  4         655  
4             my $VERSION = 0.02;
5 192     192 0 563 sub list_number {5125;}
6             my $usage = 'C';
7              
8             # 5125 Price code qualifier [C]
9             # Desc: Code qualifying a price.
10             # Repr: an..3
11              
12             my %code_hash = (
13             'AAA' => [ 'Calculation net',
14             'The price stated is the net price including allowances/ charges. Allowances/charges may be stated for information only.' ],
15             'AAB' => [ 'Calculation gross',
16             'The price stated is the gross price to which allowances/ charges must be applied.' ],
17             'AAC' => [ 'Allowances and charges not included, tax included',
18             'The price does not include the allowances and charges, but includes the taxes.' ],
19             'AAD' => [ 'Average selling price',
20             'Average selling price of a product.' ],
21             'AAE' => [ 'Information price, excluding allowances or charges,',
22             'including taxes The price stated is for information purposes only and excludes all allowances and charges. Taxes however are included in the price.' ],
23             'AAF' => [ 'Information price, excluding allowances or charges, and',
24             'taxes The price stated is for information purposes only and excludes all allowances, charges and taxes.' ],
25             'AAG' => [ 'Additive unit price component',
26             'A code to indicate that the price described is an additive component of the total price.' ],
27             'CAL' => [ 'Calculation price',
28             'The price stated is the price for the calculation of the line item amount.' ],
29             'INF' => [ 'Information',
30             'The price is provided for information.' ],
31             'INV' => [ 'Invoice price',
32             'Referenced price taken from an invoice.' ],
33             'ZZZ' => [ 'Mutually defined',
34             'A code assigned within a code list to be used on an interim basis and as defined among trading partners until a precise code can be assigned to the code list.' ],
35             );
36 192     192 0 843 sub get_codes { return \%code_hash; }
37              
38             1;