Select Code to Download

  $self->{link}->{$linkname} = [@objectrefs]

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