Yet Another CPAN Grep

XS-Base ( H/HQ/HQWANG/XS-Base-1.04.tar.gz, HQWANG, 2025; MetaCPAN )

XS-Base/lib/XS/Base.pm ( view source; MetaCPAN )

package XS::Base;
use strict;
use warnings;
our @EXPORT_OK = qw(has del def clr dump_json load_json strict_mode);
our %EXPORT_TAGS = (all => \@EXPORT_OK);
our $VERSION = '1.04';

use Exporter 'import'

}
    return XS::Base::get_strict_mode();
}

# dump_json: 从 XS 取到 root 的引用，序列化后释放该引用
sub dump_json {
    require JSON::XS;
    my $root = XS::Base::get_root_ref();    #

lar
    eval {
        my $json = JSON::XS->new->utf8->canonical->encode($root);
        XS::Base::_dec_sv($root);           # 释放 XS 返回的引用
        return $json;
    } or do {
        my