return JSON::XS::decode_json $$ret;
}
+sub do_high {
+ my ( $self, $func, $args ) = @_;
+ warn "# do_high ",dump( $func,$args );
+
+ my $task = Gearman::Task->new( $func, \$args, { high_priority => 1 } );
+
+ my $ret = $self->gc->do_task( $task );
+ warn "## $func $args = ",dump($ret);
+ return $$ret =~ m/^{/ ? JSON::XS::decode_json($$ret) : $$ret;
+}
+
1;