$self->{link}->{$linkname} = [@objectrefs]
##</code><code>##

  sub link {
    my $self = shift;
    my $linkname = shift;
    my $link = $self->{link}->{$linkname};
    return wantarray ? (ref $link ? @$link : ($link)) : $link
  }