/
usr
/
share
/
perl5
/
TAP
/
Parser
/
Scheduler
/
/usr/share/perl5/TAP/Parser/Scheduler
mkdir
upload
Name
Size
Mode
Actions
Job.pm
1672
0644
edit
dl
rm
Spinner.pm
862
0644
edit
dl
rm
Edit:
/usr/share/perl5/TAP/Parser/Scheduler/Spinner.pm
(862B)
package TAP::Parser::Scheduler::Spinner; use strict; use vars qw($VERSION); use Carp; =head1 NAME TAP::Parser::Scheduler::Spinner - A no-op job. =head1 VERSION Version 3.17 =cut $VERSION = '3.17'; =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; Returns a new C<TAP::Parser::Scheduler::Spinner> object. =cut sub new { bless {}, shift } =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} 1;
Save
cmd:
run