to-json.p6

sub to-json($arg) {
  given $arg.^name {
  when 'Bool' { $arg.Str.lc }
  when 'Int' { $arg.Str }
  when 'Str' { $arg.Str.perl }
  when 'Array' { "[{{$arg.map(&to-json).join(',')}}]" }
  when 'Hash' { "\{{{$arg.map(&to-json).join(',')}}\}" }
  when 'Pair' { "{{to-json $arg.key}}:{{to-json $arg.value}}" }
  default { die "WHY JAPANESE PEOPLE! {{$arg.^name}}" }
  }
}

Any.^add_method('to-json', method () { to-json self; });
Int.^compose;
Array.^compose;
Str.^compose;
Hash.^compose;
Bool.^compose;

say [1, "foo"].to-json;
say 1.to-json;
say True.to-json;
say { foo => "bar", bar => 'baz' }.to-json;