sub hash_accessor {
  my $self = shift;

  my ($data, $key) = (shift, shift);

  if (@ARGV) {
    $self->{$data}{$key} = shift;
  }

  return $self->{$data}{$key};
}