gistfile1.txt

zoffix@ZofLap:~$ perl6 -e 'my $s = 0; my $v := Proxy.new( FETCH => method () { try { die "meow"; CATCH { default { warn .backtrace } } } }, STORE => method () {} ); say $v'
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
  in method <anon> at -e line 1
  in block <unit> at -e line 1
  in block  at -e line 1
Nil
zoffix@ZofLap:~$