Yet Another CPAN Grep

Job-Async ( T/TE/TEAM/Job-Async-0.004.tar.gz, TEAM, 2019; MetaCPAN )

Job-Async/lib/Job/Async/Job.pm ( view source; MetaCPAN )

esents a single job for L<Job::Async>

=head1 SYNOPSIS

=head1 DESCRIPTION

=cut

use Sereal;
use JSON::MaybeUTF8 qw(:v1);

use constant SEREAL_DEFAULT => 1;

my $sereal_encode = Sereal::Encoder->new;

      : SEREAL_DEFAULT
        ? ("sereal_$k" => $sereal_encode->encode($v))
        : ("json_$k" => encode_json_utf8($v))
}

sub flattened_data {
    my ($self, $data) = @_;
    $data //= $self->{dat

type, $k) = /^(json|text|sereal)_(.*)$/;
            $k => (
                $type eq 'text'
                ? $data->{$_}
                : $type eq 'json'
                ? decode_json_utf8($data->{