lib/APKPM/Gearman.pm

   1 package APKPM::Gearman;
   2
   3 use Moose::Role;
   4
   5 use Data::Dump qw(dump);
   6 use JSON::XS;
   7
   8 sub e_json {
   9         my ( $self, $result ) = @_;
  10         warn "# e_json ", dump $result;
  11         return JSON::XS::encode_json($result);
  12 }
  13
  14 sub d_json {
  15         my ( $self, $workload ) = @_;
  16         warn "# d_json $workload";
  17         return JSON::XS::decode_json($workload);
  18 }
  19
  20 sub d_array {
  21         my ( $self, $result ) = @_;
  22         warn "# d_array $result";
  23         return [ split(/\s+/,$result) ];
  24
  25 }
  26
  27 1;