$self->{$tag} = shared_clone($value);

##</code><code>##

$self->{ALWD_INFO}{$tag} = shared_clone($value);

##</code><code>##

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

##</code><code>##

sub set_alwd_info {
    my ($self, $tag, $value) = @_;
    if( not exists $self->{ALWD_INFO} or ref( $self->{ALWD_INFO} ) ne 'HASH' ) {
        my %temp : shared = ( $tag => shared_clone($value) );
        lock($self);
        $self->{ALWD_INFO} = \%temp;
    }
    else {
        $self->{ALWD_INFO}{$tag} = shared_clone($value);
    }
}