package BDSM;

use strict;
use warnings;
use include;

use BDSM::Area::Dungeon;
use BDSM::Area::Cave;
use BDSM::Area::Farm;

# Returns a map of the specified style and dimensions.
sub generate {
  shift;  # BDSM isn't that interesting, really
  my ($style, $height, $width) = @_;
  my $package = "BDSM::Area::$style";
  return $package->generate($height, $width);
}

42;