WWW::BookBot::Alias - Aliases of inherited bot of WWW::BookBot.

  use WWW::BookBot::Alias;

  print alias2class('dragonsky');

  Aliases of inherited bot of WWW::BookBot.

  Aliases of inherited bot of WWW::BookBot.

  alias2class($classalias)	=> $classname

package WWW::BookBot::Alias;

use 5.008;
use strict;
use warnings;
no warnings qw(uninitialized);
use base qw(Exporter);
use vars qw($VERSION @EXPORT @EXPORT_OK);
$VERSION = "1.02";
@EXPORT = qw(
	alias2class
);
@EXPORT_OK = @EXPORT;

our %aliases;

sub alias2class {
	return $aliases{lc($_[0])};
}

%aliases=(
#Alias Begin
agr_cast				=> 'WWW::BookBot::Chinese::Agriculture::Cast',
agr_cngreen_market		=> 'WWW::BookBot::Chinese::Agriculture::GreenHouse::Market',
agr_cngreen_tech		=> 'WWW::BookBot::Chinese::Agriculture::GreenHouse::Tech',
dragonsky				=> 'WWW::BookBot::Chinese::Novel::DragonSky',
shuku					=> 'WWW::BookBot::Chinese::Novel::ShuKu',
wanfang					=> 'WWW::BookBot::Chinese::Periodical::WanFang',
#Alias End
);

1;
__END__