#!/usr/bin/perl -w package MudConvert::DUMP::Input; use strict; use English; use Data::Serializer; use base 'Exporter'; our @EXPORT_OK = qw( load_game ); sub load_game { my $cfg = shift; my $dump = Data::Serializer->new(); my $dump_dir = $cfg->{'source-dir'}; my $dump_file = "$dump_dir/data.dump"; if( (! -d $dump_dir) or (! -r $dump_file) or !(open FOO, $dump_file) ) { printf STDERR "FATAL: Cannot open input DUMP file (%s) for DUMP!\n", $dump_file; return undef; } my @lines = (); push @lines, $_ while(<FOO>); close FOO; my $input_data = $dump->thaw(join("", @lines)); return $input_data; } 1;