Yet Another CPAN Grep

mb-JSON ( I/IN/INA/mb/JSON/mb-JSON-0.03.tar.gz, INA, 2022; MetaCPAN )

mb-JSON/lib/mb/JSON.pm ( view source; MetaCPAN )

package mb::JSON;
######################################################################
#
# mb::JSON - a simple JSON parser for multibyte string
#
# http://search.cpan.org/dist/mb-JSON/
#
# Copyright

parse JSON data
sub mb::JSON::parse {
    local $_ = @_ ? $_[0] : $_;
    my $U0 = ($] =~ /^5\.006/) ? 'U0' : '';
    my $parsed = '';
    while (not /\G \z/xmsgc) {

        # beginning of JSON's str

------------------------------------------------------------------------
                # end of JSON's string then ":" --> Perl's hash key
                #------------------------------------------