sub TZMap {
    my $self = shift;
    if (@_) {
        $self->{TZMap} = {@_}
    }
    return $self->{TZMap};
}