#!/usr/bin/perl -w package MudConvert::Zone; use strict; use English; #use base 'Exporter'; #our @EXPORT_OK = qw( ); # # To properly initialize a zone so that it can be loaded, you should # pass in a hash (NOT a ref!) containing the following: # # VNum, Filename, Number, Line, BytePos # sub new { my $invocant = shift; my $class = ref($invocant) || $invocant; my %args = ( @_ ); my $self = {}; bless( $self, $class ); foreach my $field (qw( VNum Filename Number Line BytePos )) { no strict "refs"; *$field = sub : lvalue { my $self = shift; $self->{$field}; } } $self->{$_} = $args{$_} foreach (keys %args); return $self; } sub load { my $self = shift; my $vnum = shift || $self->{'VNum'} || 0; my $filename = shift || $self->{'Filename'} || "world/tinyworld.zon"; my $bytepos = shift || $self->{'BytePos'} || 0; print STDERR "Override me!\n"; return undef; } sub save { my $self = shift; my $filename = shift || $self->{'Filename'} || "world/tinyworld.zon"; # Be sure to open for append! print STDERR "Override me!\n"; return undef; } 1;