1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use Module::Build;
use File::Copy qw(copy);
my $lang = defined($ENV{'LANG'}) ? $ENV{'LANG'} : 'en';
my $target_pod = File::Spec->catfile('lib','Unicode','MapUTF8.pod');
if ($lang =~ m/^(ja|ja_JP|ja_JP.utf-8|ja_JP.utf8|ja.utf8|ja.utf-8)$/i) {
$source_pod = File::Spec->catfile('pod','MapUTF8.ja_JP.utf8.pod');
copy ($source_pod, $target_pod);
} elsif ($lang =~ m/^(ja_JP.eucjp|ja_JP.euc|ja_euc|ja_eucjp)$/i) {
$source_pod = File::Spec->catfile('pod','MapUTF8.ja_JP.eucjp.pod');
copy ($source_pod, $target_pod);
} else {
$source_pod = File::Spec->catfile('pod','MapUTF8.en.pod');
copy ($source_pod, $target_pod);
}
my $build = Module::Build->new
( module_name => 'Unicode::MapUTF8',
dist_author => 'Benjamin Franz <snowhare@nihongo.org>',
dist_abstract => 'Conversions to and from arbitrary character sets and UTF8',
license => 'perl',
requires => {
'Carp' => 0,
'File::Copy' => 0,
'Unicode::Map' => 0,
'Unicode::String' => 0,
'Unicode::Map8' => 0,
'Jcode' => 0,
},
build_requires => { },
)->create_build_script;
|
