#!/usr/bin/perl -w package MudConvert::Outputs; use strict; use English; use Data::Dumper; use base 'Exporter'; use MudConvert::WileyMUD::Output; use MudConvert::DUMP::Output; use MudConvert::Report::Output; our @EXPORT_OK = qw( %output_format validate_output ); our %output_format = ( 'DUMP' => { 'Name' => 'DUMP', 'Type' => 'Data Dump', 'CodeRef' => \&MudConvert::DUMP::Output::dump_game, }, 'Report' => { 'Name' => 'Report', 'Type' => 'Human Parsable', 'CodeRef' => \&MudConvert::Report::Output::dump_game, }, 'WileyMUD' => { 'Name' => 'WileyMUD', 'Type' => 'DikuMUD', 'CodeRef' => \&MudConvert::WileyMUD::Output::dump_game, }, ); sub validate_output { my $choice = shift; return undef if !(defined $choice); return grep { $_ eq $choice } (keys %output_format); } 1;