| 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; |
