package List;
use strict;
use Node;

sub new {
  my $class = shift;
  my $self = {};
  $self->{head} = 0;
  bless $self, $class;
}
sub enqueue {
  my $self = shift;
  my $key = shift;
  my $obj = shift;
  $self->{head} = Node->new($key, $obj, $self->{head});
}
sub find {
  my $self = shift;
  my $key = shift;
  my $current = $self->{head};
  while ($current != 0) {
    if ($current->getKey() == $key) {
      return $current->getObject();
    }
    else {
      $current = $current->getNext();
    }
  }
  return 0;
}
1;