sub handler ($$) {
  my($class, $r) = @_;
  ...