cpan/Test-Simple/lib/Test2/Event/Waiting.pm

   1 package Test2::Event::Waiting;
   2 use strict;
   3 use warnings;
   4
   5 our $VERSION = '1.302113';
   6
   7
   8 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
   9 use Test2::Util::HashBase;
  10
  11 sub global { 1 };
  12
  13 sub summary { "IPC is waiting for children to finish..." }
  14
  15 sub 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
  29 1;
  30
  31 __END__
  32
  33 =pod
  34
  35 =encoding UTF-8
  36
  37 =head1 NAME
  38
  39 Test2::Event::Waiting - Tell all procs/threads it is time to be done
  40
  41 =head1 DESCRIPTION
  42
  43 This event has no data of its own. This event is sent out by the IPC system
  44 when the main process/thread is ready to end.
  45
  46 =head1 SOURCE
  47
  48 The source code repository for Test2 can be found at
  49 F<http://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
  69 Copyright 2017 Chad Granum E<lt>exodist@cpan.orgE<gt>.
  70
  71 This program is free software; you can redistribute it and/or
  72 modify it under the same terms as Perl itself.
  73
  74 See F<http://dev.perl.org/licenses/>
  75
  76 =cut