sub new
{
    my ($class, %attr) = @_;
    my $ref = \%attr;
    my @history;
    $ref->{history} = \@history;
}