62 lines
990 B
Perl
62 lines
990 B
Perl
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.44
|
|
|
|
=cut
|
|
|
|
our $VERSION = '3.44';
|
|
|
|
=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;
|