Yet Another CPAN Grep

JSON-Encode-TableData ( P/PE/PERLANCAR/JSON-Encode-TableData-0.002.tar.gz, PERLANCAR, 2020; MetaCPAN )

JSON-Encode-TableData/lib/JSON/Encode/TableData.pm ( view source; MetaCPAN )

package JSON::Encode::TableData;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-10-22'; # DATE
our $DIST = 'JSON-Encode-TableData'; # DIST
our $VERSION = '0.002'; # VERSION

use str

ict;
use warnings;
use JSON::MaybeXS ();

use Exporter qw(import);
our @EXPORT_OK = qw(encode_json);

sub encode_json {
    my $input = shift;

    # BEGIN copy-pasted from App::td with some modificat

T;
    } else {
        goto ENCODE_DIRECTLY;
    }

  ENCODE_AND_FORMAT: {
        my $encoder = JSON::MaybeXS->new(allow_nonref=>1);

        require UUID::Random;
        my $tag = UUID::Random::ge