# ATITD Region
# ============
#
# One region in a telling in ATITD. Currently only know its name, telling and 
# chariot stop.

package ATITD::Region;

use strict;
use warnings;

use ATITD::Chariot;

# Creates a region in some telling.
sub new {
	my ($class, $telling, $name, $chariot_coords) = @_;
	my $self = bless {
		telling => $telling,
		name => $name,
		links => {},
	};
	
	$self->{chariot} = ATITD::Chariot->new($telling, $self, @$chariot_coords);
	
	return $self;
}

# Our telling.
sub telling { $_[0]->{telling} }

# Our name.
sub name { $_[0]->{name} }

# Our chariot stop.
sub chariot { $_[0]->{chariot} }

1;