/usr/share/perl5/Gearman/ResponseParser/Taskset.pm is in libgearman-client-perl 1.11-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | package Gearman::ResponseParser::Taskset;
use strict;
use base 'Gearman::ResponseParser';
use Gearman::Taskset;
sub new {
my ($class, %opts) = @_;
my $ts = delete $opts{taskset};
my $self = $class->SUPER::new(%opts);
$self->{_taskset} = $ts;
return $self;
}
sub on_packet {
my ($self, $packet, $parser) = @_;
$self->{_taskset}->_process_packet($packet, $parser->source);
}
sub on_error {
my ($self, $errmsg) = @_;
die "ERROR: $errmsg\n";
}
1;
|