Yet Another CPAN Grep

Markua-Parser ( S/SZ/SZABGAB/Markua-Parser-0.01.tar.gz, SZABGAB, 2018; MetaCPAN )

Markua-Parser/bin/generate_test_expectations.pl ( view source; MetaCPAN )

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use JSON::MaybeXS ();
use Path::Tiny qw(path);

use lib 'lib';
use Markua::Parser;

for my $input_file (glob "t/input/*.md") {
    #say $input

    my $json = JSON::MaybeXS->new(utf8 => 1, pretty => 1, sort_by => 1);
    path("t/dom/$case.json")->spew_utf8($json->encode($result));

    if (@$errors) {
        path("t/errors/$case.json")->spew