Yet Another CPAN Grep

JSON-Decode-Marpa ( P/PE/PERLANCAR/JSON-Decode-Marpa-0.02.tar.gz, PERLANCAR, 2014; MetaCPAN )

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

package JSON::Decode::Marpa;

our $DATE = '2014-08-27'; # DATE
our $VERSION = '0.02'; # VERSION

use 5.010001;
use strict;
use warnings;

use MarpaX::Simple qw(gen_parser);

require Exporter;
our @ISA

 qw(Exporter);
our @EXPORT_OK = qw(from_json);

my $parser = gen_parser(
    grammar => <<'EOF',
:default     ::= action => do_array

:start       ::= json

json         ::= object action => do_first

tring lexeme> ~ quote <string contents> quote
# This cheats -- it recognizers a superset of legal JSON strings.
# The bad ones can sorted out later, as desired
quote ~ ["]
<string contents> ~ <string