File Coverage

lib/Encode/MIME/Name.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
total 10 10 100.0


line stmt bran cond sub time code
1           package Encode::MIME::Name;
2 1     1 147462 use strict;
  1       2  
  1       47  
3 1     1 6 use warnings;
  1       2  
  1       466  
4           our $VERSION = do { my @r = ( q$Revision: 1.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
5            
6           our %MIME_NAME_OF = (
7           'AdobeStandardEncoding' => 'Adobe-Standard-Encoding',
8           'AdobeSymbol' => 'Adobe-Symbol-Encoding',
9           'ascii' => 'US-ASCII',
10           'big5-hkscs' => 'Big5-HKSCS',
11           'cp1026' => 'IBM1026',
12           'cp1047' => 'IBM1047',
13           'cp1250' => 'windows-1250',
14           'cp1251' => 'windows-1251',
15           'cp1252' => 'windows-1252',
16           'cp1253' => 'windows-1253',
17           'cp1254' => 'windows-1254',
18           'cp1255' => 'windows-1255',
19           'cp1256' => 'windows-1256',
20           'cp1257' => 'windows-1257',
21           'cp1258' => 'windows-1258',
22           'cp37' => 'IBM037',
23           'cp424' => 'IBM424',
24           'cp437' => 'IBM437',
25           'cp500' => 'IBM500',
26           'cp775' => 'IBM775',
27           'cp850' => 'IBM850',
28           'cp852' => 'IBM852',
29           'cp855' => 'IBM855',
30           'cp857' => 'IBM857',
31           'cp860' => 'IBM860',
32           'cp861' => 'IBM861',
33           'cp862' => 'IBM862',
34           'cp863' => 'IBM863',
35           'cp864' => 'IBM864',
36           'cp865' => 'IBM865',
37           'cp866' => 'IBM866',
38           'cp869' => 'IBM869',
39           'cp936' => 'GBK',
40           'euc-jp' => 'EUC-JP',
41           'euc-kr' => 'EUC-KR',
42           #'gb2312-raw' => 'GB2312', # no, you're wrong, I18N::Charset
43           'hp-roman8' => 'hp-roman8',
44           'hz' => 'HZ-GB-2312',
45           'iso-2022-jp' => 'ISO-2022-JP',
46           'iso-2022-jp-1' => 'ISO-2022-JP',
47           'iso-2022-kr' => 'ISO-2022-KR',
48           'iso-8859-1' => 'ISO-8859-1',
49           'iso-8859-10' => 'ISO-8859-10',
50           'iso-8859-13' => 'ISO-8859-13',
51           'iso-8859-14' => 'ISO-8859-14',
52           'iso-8859-15' => 'ISO-8859-15',
53           'iso-8859-16' => 'ISO-8859-16',
54           'iso-8859-2' => 'ISO-8859-2',
55           'iso-8859-3' => 'ISO-8859-3',
56           'iso-8859-4' => 'ISO-8859-4',
57           'iso-8859-5' => 'ISO-8859-5',
58           'iso-8859-6' => 'ISO-8859-6',
59           'iso-8859-7' => 'ISO-8859-7',
60           'iso-8859-8' => 'ISO-8859-8',
61           'iso-8859-9' => 'ISO-8859-9',
62           #'jis0201-raw' => 'JIS_X0201',
63           #'jis0208-raw' => 'JIS_C6226-1983',
64           #'jis0212-raw' => 'JIS_X0212-1990',
65           'koi8-r' => 'KOI8-R',
66           'koi8-u' => 'KOI8-U',
67           #'ksc5601-raw' => 'KS_C_5601-1987',
68           'shiftjis' => 'Shift_JIS',
69           'UTF-16' => 'UTF-16',
70           'UTF-16BE' => 'UTF-16BE',
71           'UTF-16LE' => 'UTF-16LE',
72           'UTF-32' => 'UTF-32',
73           'UTF-32BE' => 'UTF-32BE',
74           'UTF-32LE' => 'UTF-32LE',
75           'UTF-7' => 'UTF-7',
76           'utf8' => 'UTF-8',
77           'utf-8-strict' => 'UTF-8',
78           'viscii' => 'VISCII',
79           );
80            
81 67     67 28497 sub get_mime_name($) { $MIME_NAME_OF{$_[0]} };
82            
83           1;
84           __END__