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