Yet Another CPAN Grep

Beanstalk-Client ( G/GB/GBARR/Beanstalk-Client-1.07.tar.gz, GBARR, 2012; MetaCPAN )

Beanstalk-Client/lib/Beanstalk/Client.pm ( view source; MetaCPAN )

   },
    @args
  );

  # Send job, data created by encoding @args with JSON
  use JSON::XS;
  $client->encoder(sub { encode_json(\@_) });
  my $job2 = $client->put(
    { priority => 100,
      ttr