Select Code to Download

sub _run_chain {
  my $s = shift;
...
    $s->($r.'::'.$sub) if $s->can($r.'::'.$sub);
  }
}