sub new {
    my ($class, $datafile, $accounts) = @_;
    return bless {
        file     => $datafile,
        accounts => $accounts,
    }, $class;
}

##</code><code>##

sub acct_data {
    my ($self, $type) = @_;
    die "Invalid type, $type does not exist." unless defined $headings{$type};
    return $self->{data}{$type} if defined $self->{data};
    return $self->{data}{$type} = {
        get_hash(
            file => data_file($self->{file}, "$type.txt"),
            headings => $headings{$type},
        )
    }
}