# Adds fields to a shared object
sub set {
    my ($self, $tag, $value) = @_;
    lock($self);
    $self->{$tag} = shared_clone($value);
}