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 use DateTime;
   9 use DateTime::Format::Pg;
  10
  11 sub e_json {
  12         my ( $self, $result ) = @_;
  13         warn "# e_json ", dump $result;
  14         return JSON::XS::encode_json($result);
  15 }
  16
  17 sub d_json {
  18         my ( $self, $workload ) = @_;
  19         warn "# d_json $workload";
  20         return JSON::XS::decode_json($workload);
  21 }
  22
  23 sub d_array {
  24         my ( $self, $result ) = @_;
  25         warn "# d_array $result";
  26         return [ split(/\s+/,$result) ];
  27
  28 }
  29
  30 sub datetime_now {
  31         return DateTime::Format::Pg->format_datetime( DateTime->now );
  32 }
  33
  34 1;