123456789101112 package # hide from PAUSE Gearman::Driver::Test::Base::All;use base qw(Gearman::Driver::Worker);use Moose;sub process_name { my ( $self, $orig, $job_name ) = @_; return "$orig ($job_name)";}1;
package
# hide from PAUSE
Gearman::Driver::Test::Base::All;
use
base
qw(Gearman::Driver::Worker)
;
Moose;
sub
process_name {
my
(
$self
,
$orig
$job_name
) =
@_
return
"$orig ($job_name)"
}
1;