Yet Another CPAN Grep

Regexp-Pattern-JSON ( P/PE/PERLANCAR/Regexp-Pattern-JSON-0.004.tar.gz, PERLANCAR, 2018; MetaCPAN )

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

package Regexp::Pattern::JSON;

our $DATE = '2018-09-12'; # DATE
our $VERSION = '0.004'; # VERSION

use 5.010001;

our %RE;

$RE{number} = {
    summary => 'Match a JSON number literal',
    pat => qr

hes=>1},
        {str=>'-1.23e2', matches=>1},
    ],
};

$RE{string} = {
    summary => 'Match a JSON string literal',
    pat => qr{(?:
    "
    (?:
        [^\\"]+
    |
        \\ [0-7]{1,3}

g}{pat})

(?<NUMBER> $RE{number}{pat})

) # DEFINE

}xms;

$RE{array} = {
    summary => 'Match a JSON array',
    pat => qr{(?:
    (?&ARRAY)
$define
    )}xms,
    examples => [
        {str=>q([]),