evalable6

query

say to-json <a b c d e>.map({ %(:title($_), :active, :pattern("*$_*"), :1type, :1protocols) }).Hash

result

{
  "active": true,
  "type": 1,
  "protocols": 1,
  "pattern": "*e*",
  "title": "e"
}
Saw 1 occurrence of deprecated code.
================================================================================
Sub to-json (from GLOBAL) seen at:
  /tmp/TyO0BZtgCR, line 1
Please use JSON::Fast, JSON::Tiny or JSON::Pretty from https://modules.perl6.org/ instead.
--------------------------------------------------------------------------------
Please contact the author to have these occurrences of deprecated code
adapted, so that this message will disappear!