sub set_alwd_info {
    my ($self, $tag, $value) = @_;
    my %temp : shared = ( $tag => $value );
    lock($self);
    $self->{ALWD_INFO} = \%temp;
}