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;       
}