grammar My-Grammar {
    token TOP       { \s* <object> \s* }
    rule object     { '{' \s* <pairlist> '}' \s* }
    rule pairlist   {  <pair> * % \,  }
    rule pair       {  <string>':' <value> }
    token string    {  \" <[ \w \s \- ' ]>+ \"  }
    token number    { [ \d+ [ \. \d+ ]? ] | [ \. \d+ ] }
    token value     {   <object> | <string> | <number> 
               | true    | false     | null 
    }
}

##</code><code>##

my $source-string = q/{
  "firstName": "John",
  "lastName": "Smith",
  "isAlive": true,
  "age": 25,
  "address": {
    "streetAddress": "21 2nd Street",
    "city": "New York",
    "state": "NY",
    "postalCode": "10021-3100"
  },
  "spouse": null
}/;
my $match = My-Grammar.parse($source-string);
say ~$match if $match;
# say $match.made if $match;

##</code><code>##

{
  "firstName": "John",
  "lastName": "Smith",
  "isAlive": true,
  "age": 25,
  "address": {
    "streetAddress": "21 2nd Street",
    "city": "New York",
    "state": "NY",
    "postalCode": "10021-3100"
  },
  "spouse": null
}

##</code><code>##

class My-actions {
    method TOP($/) {
        make $/.values.[0].made;
    };
    method object ($/) {
        make $<pairlist>.made.hash.item;
    }
    method pairlist($/) {
        make $<pair>>>.made.flat;
    }
    method pair($/) {
        make $<string>.made => $<value>.made ;
    }
    method string($/) { make ~$/; }
    method number($/) { make +$/.Str; }
    method value($/) { 
    	given ~$/ {
    	    when "true"  {make Bool::True;}
    	    when "false" {make Bool::False;}
    	    when "null"  {make Any;}
    	    default { make ~$/;}
    	}  
    }
}

##</code><code>##

{"address" => {
    "streetAddress": "21 2nd Street",
    "city": "New York",
    "state": "NY",
    "postalCode": "10021-3100"
  }, "age" => 25, "firstName" => "John", "isAlive" => True, "lastName" => "Smith", "spouse" => (Any)}

##</code><code>##

    	    default { make ~$/;}