gearman_driver.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Gearman::Driver;
   5 use lib 'lib';
   6
   7 my $driver = Gearman::Driver->new(
   8         namespaces => [qw(APKPM)],
   9         server     => $ENV{GEARMAN} || 'localhost:4730',
  10 #       server     => 'localhost:4731,localhost:7003',
  11         interval   => 3,
  12 );
  13 $driver->run;