1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
2 | |
2 | |
3 | # usage: res2pm |
3 | # usage: res2pm |
4 | |
4 | |
5 | open STDOUT, ">:utf8", "Crossfire/Data.pm" |
5 | open STDOUT, ">:utf8", "Deliantra/Data.pm" |
6 | or die "Crossfire/Data.pm: $!"; |
6 | or die "Deliantra/Data.pm: $!"; |
7 | |
7 | |
8 | print <<EOF; |
8 | print <<EOF; |
9 | =head1 NAME |
9 | =head1 NAME |
10 | |
10 | |
11 | Crossfire::Data - various data structures useful for understanding archs and objects |
11 | Deliantra::Data - various data structures useful for understanding archs and objects |
12 | |
12 | |
13 | =head1 |
13 | =head1 |
14 | |
14 | |
15 | THIS FILE IS AUTOGENERATED, DO NOT EDIT! |
15 | THIS FILE IS AUTOGENERATED, DO NOT EDIT! |
16 | |
16 | |
… | |
… | |
22 | |
22 | |
23 | See F<res/README> for more info. |
23 | See F<res/README> for more info. |
24 | |
24 | |
25 | =cut |
25 | =cut |
26 | |
26 | |
27 | package Crossfire::Data; |
27 | package Deliantra::Data; |
28 | |
28 | |
29 | EOF |
29 | EOF |
30 | |
30 | |
31 | use Data::Dumper; |
31 | use Data::Dumper; |
32 | use XML::Grove::Builder; |
32 | use XML::Grove::Builder; |