pm/Proc/Prefork/prefork-interp-test

   1 #!/usr/bin/prefork-interp perl
   2 # -*- perl -*-
   3
   4 use strict;
   5 BEGIN { unshift @INC, './pm' }
   6 use Proc::Prefork::Interp;
   7
   8 sub prwhen ($) {
   9   my ($when) = @_;
  10   my @env = sort keys %ENV;
  11   print STDERR "$when - STDERR - @ARGV - $ENV{PREFORK_INTERP} - @env\n"
  12     and flush STDERR or die $!;
  13   print STDOUT "$when - STDOUT\n"
  14     and flush STDOUT or die $!;
  15 }
  16
  17 prwhen('BEGIN');
  18
  19 initialisation_complete();
  20
  21 prwhen('AFTER');
  22
  23 while (<STDIN>) {
  24   last unless m{\S};
  25   $_ = uc $_;
  26   print or die $!;
  27   flush STDOUT or die $!;
  28   print STDERR length, "\n";
  29 }