use Monkey::Patch qw[patch_package];

# Monkey-patch JSON::PP::object() subroutine to use Tie::IxHash.
my $handle = patch_package 'JSON::PP' => 'object' => sub {
  my $orig = shift;
  my %obj;
  tie %obj, 'Tie::IxHash'
    or die "tie(\%obj, 'Tie::IxHash') failed!\n";
  $orig->(\%obj)
};