{
  no warnings 'uninitialized';
  $text = $json->encode($object);
}

##</code><code>##

use Sub::Name;
for my $f (@wrapper_funcs)
{
  my $xs = $f . 'XS';
  *$f = subname $f => sub {
    no warnings 'uninitialized';
    &$xs; # @_ gets passed along automatically
  };
}