/usr/share/perl5/Gearman/Objects.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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | use strict;
package Gearman::Objects;
# this dummy package exists purely for building RPMs,
# some tools of which have requirements for above package
# line and the filename to match somehow.
package Gearman::Client;
use fields (
'job_servers',
'js_count',
'sock_cache', # hostport -> socket
'hooks', # hookname -> coderef
'prefix',
'debug',
'exceptions',
);
package Gearman::Taskset;
use fields (
'waiting', # { handle => [Task, ...] }
'client', # Gearman::Client
'need_handle', # arrayref
'default_sock', # default socket (non-merged requests)
'default_sockaddr', # default socket's ip/port
'loaned_sock', # { hostport => socket }
'cancelled', # bool, if taskset has been cancelled mid-processing
'hooks', # hookname -> coderef
);
package Gearman::Task;
use fields (
# from client:
'func',
'argref',
# opts from client:
'uniq',
'on_complete',
'on_fail',
'on_exception',
'on_retry',
'on_status',
'on_post_hooks', # used internally, when other hooks are done running, prior to cleanup
'retry_count',
'timeout',
'try_timeout',
'high_priority',
# from server:
'handle',
# maintained by this module:
'retries_done',
'is_finished',
'taskset',
'jssock', # jobserver socket. shared by other tasks in the same taskset,
# but not w/ tasks in other tasksets using the same Gearman::Client
'hooks', # hookname -> coderef
);
1;
|