File Coverage

blib/lib/Convert/IBM390/CP01142.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package Convert::IBM390::CP01142;
2              
3 1     1   5 use Convert::IBM390 'set_translation';
  1         2  
  1         43  
4              
5 1     1   4 use vars qw($VERSION);
  1         2  
  1         59  
6              
7             $VERSION = '0.26';
8              
9             sub import {
10 1     1   3 set_translation(undef, <<'END EBCDIC');
11             00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F
12             10 11 12 13 9D 0A 08 87 18 19 92 8F 1C 1D 1E 1F
13             80 81 82 83 84 85 17 1B 88 89 8A 8B 8C 05 06 07
14             90 91 16 93 94 95 96 04 98 99 9A 9B 14 15 9E 1A
15             20 A0 E2 E4 E0 E1 E3 7D E7 F1 23 2E 3C 28 2B 21
16             26 E9 EA EB E8 ED EE EF EC DF A4 C5 2A 29 3B 5E
17             2D 2F C2 C4 C0 C1 C3 24 C7 D1 F8 2C 25 5F 3E 3F
18             A6 C9 CA CB C8 CD CE CF CC 60 3A C6 D8 27 3D 22
19             40 61 62 63 64 65 66 67 68 69 AB BB F0 FD FE B1
20             B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA 7B B8 5B 5D
21             B5 FC 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE
22             A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF A8 B4 D7
23             E6 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5
24             E5 4A 4B 4C 4D 4E 4F 50 51 52 B9 FB 7E F9 FA FF
25             5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5
26             30 31 32 33 34 35 36 37 38 39 B3 DB DC D9 DA 9F
27             END EBCDIC
28             } # end import
29              
30             __END__