JSON::PP::boolean_values($json, 0, 1); #### { package JSON { sub boolean_values { JSON::PP::boolean_values(@_); } }; } #### package Our::JSON; use base qw{ JSON }; sub boolean_values { JSON::PP::boolean_values(@_); } 1;