Games::Maze
Create Mazes as Objects.
use Games::Maze;
my $m1 = Games::Maze->new(dimensions => [12,7,3]); my $m2 = Games::Maze->new(dimensions => [8,5,2], cell => 'Hex');
$m1->make();
print scalar($m1->to_ascii());
$m1->solve();
print "\n\nThe Solution:\n\n", scalar($m1->to_ascii());
INSTALLATION
perl Makefile.PL
make
make test
make install