governance-v13

(define-constant ERR-UNAUTHORIZED u100)

(define-data-var governor principal tx-sender)
(define-data-var paused bool false)

(define-read-only (is-governor (who principal))
  (is-eq who (var-get governor))
)

(define-read-only (is-paused)
  (var-get paused)
)

(define-public (set-governor (new-governor principal))
  (begin
    (asserts! (is-eq tx-sender (var-get governor)) (err ERR-UNAUTHORIZED))
    (var-set governor new-governor)
    (ok true)
  )
)

(define-public (set-paused (flag bool))
  (begin
    (asserts! (is-eq tx-sender (var-get governor)) (err ERR-UNAUTHORIZED))
    (var-set paused flag)
    (ok true)
  )
)