1package TAP::Parser::Scheduler::Spinner;
2
3use strict;
4use warnings;
5use Carp;
6
7=head1 NAME
8
9TAP::Parser::Scheduler::Spinner - A no-op job.
10
11=head1 VERSION
12
13Version 3.42
14
15=cut
16
17our $VERSION = '3.42';
18
19=head1 SYNOPSIS
20
21    use TAP::Parser::Scheduler::Spinner;
22
23=head1 DESCRIPTION
24
25A no-op job. Returned by C<TAP::Parser::Scheduler> as an instruction to
26the harness to spin (keep executing tests) while the scheduler can't
27return a real job.
28
29=head1 METHODS
30
31=head2 Class Methods
32
33=head3 C<new>
34
35    my $job = TAP::Parser::Scheduler::Spinner->new;
36
37Ignores any arguments and returns a new C<TAP::Parser::Scheduler::Spinner> object.
38
39=cut
40
41sub new { bless {}, shift }
42
43=head2 Instance Methods
44
45=head3 C<is_spinner>
46
47Returns true indicating that is a 'spinner' job. Spinners are returned
48when the scheduler still has pending jobs but can't (because of locking)
49return one right now.
50
51=cut
52
53sub is_spinner {1}
54
55=head1 SEE ALSO
56
57L<TAP::Parser::Scheduler>, L<TAP::Parser::Scheduler::Job>
58
59=cut
60
611;
62