Yet Another CPAN Grep

Qudo ( K/KA/KARUPA/Qudo-0.0214.tar.gz, KARUPA, 2016; MetaCPAN )

Qudo/lib/Qudo/Hook/Serialize/JSON.pm ( view source; MetaCPAN )

ge Qudo::Hook::Serialize::JSON;
use strict;
use warnings;
use base 'Qudo::Hook';
use JSON::XS;

sub load {
    my ($class, $klass) = @_;

    $klass->hooks->{serialize}->{json} = sub {
        my $arg

{arg} = encode_json($args->{arg});
    };

    $klass->hooks->{deserialize}->{json} = sub {
        my $job = shift;
        $job->arg_origin = $job->arg;
        $job->arg = decode_json($job->arg);

   };
}

sub unload {
    my ($class, $klass) = @_;

    delete $klass->hooks->{serialize}->{json};
    delete $klass->hooks->{deserialize}->{json};
}


1;

Qudo ( K/KA/KARUPA/Qudo-0.0214.tar.gz, KARUPA, 2016; MetaCPAN )

Qudo/lib/Qudo/Manual/JA/Functions.pod ( view source; MetaCPAN )

ば、enqueueする引数の情報をJSONでシリアライズしたい場合は

    my $client = Qudo->new(... , default_hooks => ["Qudo::Hook::Serialize::JSON"]);
    $client->enqueue('Test::Worker

のようにHookモジュールをnewの引数に渡す事で設定でき、
設定した引数がJSONでシリアライズされて保存されます。

Hookは利用者が好きに書く事がで