sub TIEHASH {
    my ($pkg, $object) = @_;
    return $object;
}

sub FETCH {
    my ($self, $key) = @_;
    $self->$key;
}