my subtype HTTP::Request::Method of Str where {
    $^method eq any <GET POST HEAD ...>;
  };

  method send_using(HTTP::Request::Method $method) {
    ...;
    # Note: You don't have to manually check for $method
    # not being a valid HTTP method :).
  }