Select Code to Download

use Monkey::Patch qw[patch_package];

...
    or die "tie(\%obj, 'Tie::IxHash') failed!\n";
  $orig->(\%obj)
};