とりあえず動いてはいるんだけど、Gearman::Task への scalarref の渡し方ってもっとキレいなかんじになるんじゃないかっていう感じする。 my $client; sub _setup_client { my ($servers) = @_; $client ||= Gearman::Client->new( job_servers => $servers…