package HashSub;

use strict;

use HashBase;

@HashSub::ISA = qw( HashBase );

sub third {
    my $self = shift;
    $self->{THIRD} = shift if @_;
    $self->{THIRD};
}

1;