#!/usr/bin/perl -w package MudConvert::Inputs; use strict; use English; use base 'Exporter'; use MudConvert::WileyMUD::Input; use MudConvert::DUMP::Input; our @EXPORT_OK = qw( %input_format validate_input ); our %input_format = ( 'DUMP' => { 'Name' => 'DUMP', 'Type' => 'Data Dump', 'CodeRef' => \&MudConvert::DUMP::Input::load_game, }, 'WileyMUD' => { 'Name' => 'WileyMUD', 'Type' => 'DikuMUD', 'CodeRef' => \&MudConvert::WileyMUD::Input::load_game, }, ); sub validate_input { my $choice = shift; return undef if !(defined $choice); return grep { $_ eq $choice } (keys %input_format); } 1;