1package Test2::Event::Waiting; 2use strict; 3use warnings; 4 5our $VERSION = '1.302199'; 6 7 8BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } 9use Test2::Util::HashBase; 10 11sub global { 1 }; 12 13sub summary { "IPC is waiting for children to finish..." } 14 15sub facet_data { 16 my $self = shift; 17 18 my $out = $self->common_facet_data; 19 20 push @{$out->{info}} => { 21 tag => 'INFO', 22 debug => 0, 23 details => $self->summary, 24 }; 25 26 return $out; 27} 28 291; 30 31__END__ 32 33=pod 34 35=encoding UTF-8 36 37=head1 NAME 38 39Test2::Event::Waiting - Tell all procs/threads it is time to be done 40 41=head1 DESCRIPTION 42 43This event has no data of its own. This event is sent out by the IPC system 44when the main process/thread is ready to end. 45 46=head1 SOURCE 47 48The source code repository for Test2 can be found at 49L<https://github.com/Test-More/test-more/>. 50 51=head1 MAINTAINERS 52 53=over 4 54 55=item Chad Granum E<lt>exodist@cpan.orgE<gt> 56 57=back 58 59=head1 AUTHORS 60 61=over 4 62 63=item Chad Granum E<lt>exodist@cpan.orgE<gt> 64 65=back 66 67=head1 COPYRIGHT 68 69Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>. 70 71This program is free software; you can redistribute it and/or 72modify it under the same terms as Perl itself. 73 74See L<https://dev.perl.org/licenses/> 75 76=cut 77