package Node;
use strict;

sub new {
  my $class = shift;
  my $self = {};
  $self->{key} = shift;
  $self->{obj} = shift;
  $self->{next} = shift;
  bless $self, $class;
}
sub getKey {
  my $self = shift;
  return $self->{key};
}
sub getObject {
  my $self = shift;
  return $self->{obj};
}
sub getNext {
  my $self = shift;
  return $self->{next};
}
1;