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