package HTML_Indexer::Word;
use HTML_Indexer::Position;
use HTML_Indexer::HeadlinePosition;

my $wordname;
my @positions;
my @headline_positions;


sub new (){
	my $classname  = shift;     
	$wordname = shift; 
	print "Creating word: ".$wordname."\n";
	my $self       = {};            
	$counter++;
	return bless $self, $classname; 
};


sub addPosition(){
	my $classname  = shift;         # 1. Parameter Klassenname
	my $position = shift; 
	push @positions, $position; 
};


sub addPositions(){
	my $classname  = shift;         # 1. Parameter Klassenname
	my @pos = shift; 
	push @positions, @pos; 
};


sub getPositions(){
	return @positions; 
}

sub getName(){
	return $wordname;	
}