#!/usr/local/bin/perl -w

use strict ;

package Node ;

sub new {

   my $me = {} ;
   $me->{'next'} = 0 ;
   $me->{'count'} = 0 ;
   $me->{'word'} = "" ;
   bless $me ;
   return $me ;

}

sub getCount {
   my $self = shift ;
   return $self->access('count') ;
}

sub getWord {
   my $self = shift ;
   return $self->access('word') ;
}

sub getNext {
   my $self = shift ;
   return $self->access('next') ;
}

sub setCount {
   my $self = shift ;
   return $self->modify('count', shift) ;
}

sub setWord {
   my $self = shift ;
   return $self->modify('word', shift) ;
}

sub setNext {
   my $self = shift ;
   return $self->modify('next', shift) ;
}

sub modify {
   my $self = shift ;
   my $field = shift ;
   my $value = shift ;
   return $self->{$field}=$value ;
}

sub access {
   my $self = shift ;
   my $field = shift ;
   return $self->{$field} ;
}


sub hi {
  print "hi\n" ;
}


1 ; # happy package