Select Code to Download

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

# Adds sub fields to a shared object
sub set_alwd_info {
...
    lock($self);
43: $self->{ALWD_INFO}{$tag} = shared_clone($value);
}

#!/usr/bin/perl
#
...
my $sample = ALWD::Cows->new();
$sample->set("Key1", "Value1");
$sample->set_alwd_info("Key2", "Value2");