governance-v2-v2601221844-v10

SP1K2XGT5RNGT42N49BH936VDF8NXWNZJY15BPV4F

Source Code

(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)
  )
)

Functions (4)

FunctionAccessArgs
is-governorread-onlywho: principal
is-pausedread-only
set-governorpublicnew-governor: principal
set-pausedpublicflag: bool