webservice.clj

(ns com.example.service
  (:refer-clojure)
  (:import javax.jws.WebMethod
           javax.jws.WebParam
           javax.jws.WebService))


(definterface FooBarInterface
  (#^String frobbleBaz [#^String name
                        #^String address
                        #^String email]))


(deftype #^{WebService {}}
  FooBarService []
  
  FooBarInterface
  (#^{:tag String
      WebMethod {:operationName "frobbleBaz"}}
   frobbleBaz [this
                   #^{WebParam {:name "customerName"} :tag String} name
                   #^{WebParam {:name "address"}      :tag String} address
                   #^{WebParam {:name "email"}        :tag String} email]
   "foo"))