Yet Another CPAN Grep

YAML-Parser ( I/IN/INGY/YAML-Parser-0.0.5.tar.gz, INGY, 2021; MetaCPAN )

YAML-Parser/lib/YAML/Parser.pm ( view source; MetaCPAN )

rs => undef,
  }, $class;
}
sub TO_JSON { $_[0]->{func} }

package PerlYamlReferenceParserPrelude;

use boolean;
use Carp;
use Encode;
use Exporter 'import';
use JSON::PP;
use Time::HiRes qw< gettimeo

$value, ref($value)];
}

my $json = JSON::PP->new->canonical->allow_unknown->allow_nonref->convert_blessed;
sub json_stringify {
  my $string;
  eval {
    $string = $json->encode($_[0]);
  };
  confe

sObject $o) {
    return json_stringify [ sort keys %$o ];
  }
  if (isArray $o) {
    return "[${\ join ',', map stringify($_), @$o}]";
  }
  if (isString $o) {
    $_ = json_stringify $o;
    s/^"(.