| … | … | ||
|---|---|---|---|
| 5 | =cut | 5 | =cut |
| 6 | 6 | ||
| 7 | package Crossfire; | 7 | package Crossfire; |
| 8 | 8 | ||
| 9 | our $VERSION = '0.1'; | 9 | our $VERSION = '0.1'; |
| 10 | use base 'Exporter'; | ||
| 11 | our @EXPORT = qw(read_pak read_arch arch2map); | ||
| 10 | 12 | ||
| 11 | use strict; | 13 | use strict; |
| 12 | 14 | ||
| 13 | use Storable; | 15 | use Storable; |
| 14 | use List::Util qw(max); | ||
| 15 | 16 | ||
| 16 | our $LIB = $ENV{CROSSFIRE_LIBDIR} | 17 | our $LIB = $ENV{CROSSFIRE_LIBDIR} |
| 17 | or die "\$CROSSFIRE_LIBDIR must be set\n"; | 18 | or die "\$CROSSFIRE_LIBDIR must be set\n"; |
| 18 | 19 | ||
| 19 | sub T (){ 32 } | 20 | sub T (){ 32 } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |