package HashBase;

use strict;

sub new {
    my $class = shift;
    my $self  = {};

    $self->{FIRST} = shift;

    bless $self => $class;
}

sub first {
    my $self = shift;
    $self->{FIRST} = shift if @_;
    $self->{FIRST};
}

sub second {
    my $self = shift;
    $self->{SECOND} = shift if @_;
    $self->{SECOND};
}

1;