my $self = shift @_;
my $func = shift @_;
my $body = join(' ', @_) . "\n";
- warn "## gearman_do $func [$body]\n";
+ warn "## gearman_do $func ",dump($body),"\n";
my $result = $self->gearman->do_task( $func => $body );
warn "##>> ",dump($result),$/ if $ENV{DEBUG};