Support cli functions in extract_glued_symbols()

[Bisaloo]

# glue::glue passes
lintr::lint(
  text = "foo <- function() { x <- 1; glue::glue('{x}') }",
  linters = lintr::object_usage_linter()
)

# cli functions lint
lintr::lint(
  text = "foo <- function() { x <- 1; cli::cli_h1('{x}') }",
  linters = lintr::object_usage_linter()
)
#> <text>:1:21: warning: [object_usage_linter] local variable 'x' assigned but may not be used
#> foo <- function() { x <- 1; cli::cli_h1('{x}') }
#>                     ^

# This is valid cli usage
x <- 1
cli::cli_h1('{x}')
#> 
#> ── 1 ───────────────────────────────────────────────────────────────────────────

^{Created on 2023-10-31 with reprex v2.0.2}