[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
perl5
/
vendor_perl
/
TAP
/
Parser
/
Scheduler
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📄 Job.pm
2,201 B
SET
[ EDIT ]
|
[ DEL ]
📄 Spinner.pm
990 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: Spinner.pm
package TAP::Parser::Scheduler::Spinner; use strict; use warnings; use Carp; =head1 NAME TAP::Parser::Scheduler::Spinner - A no-op job. =head1 VERSION Version 3.42 =cut our $VERSION = '3.42'; =head1 SYNOPSIS use TAP::Parser::Scheduler::Spinner; =head1 DESCRIPTION A no-op job. Returned by C<TAP::Parser::Scheduler> as an instruction to the harness to spin (keep executing tests) while the scheduler can't return a real job. =head1 METHODS =head2 Class Methods =head3 C<new> my $job = TAP::Parser::Scheduler::Spinner->new; Ignores any arguments and returns a new C<TAP::Parser::Scheduler::Spinner> object. =cut sub new { bless {}, shift } =head2 Instance Methods =head3 C<is_spinner> Returns true indicating that is a 'spinner' job. Spinners are returned when the scheduler still has pending jobs but can't (because of locking) return one right now. =cut sub is_spinner {1} =head1 SEE ALSO L<TAP::Parser::Scheduler>, L<TAP::Parser::Scheduler::Job> =cut 1;