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