lib/Mogstored/ChildProcess.pm

   1 package Mogstored::ChildProcess;
   2 use strict;
   3
   4 sub run {
   5     my $class = shift;
   6     die "run not implemented for $class\n";
   7 }
   8
   9 sub pre_exec_init {
  10     my $class = shift;
  11     # override to setup environment ...
  12 }
  13
  14 sub exec {
  15     my $class = shift;
  16     if (_running_under_par()) {
  17         # then we can't exec, as we'll lose magic @INC
  18         # ghetto:
  19         #for (3..100) { POSIX::close($_); }
  20         my $rv = eval "use $class; 1" or die "Failed to load $class: $@\n";
  21         $class->run;
  22     } else {
  23         exec $^X, "-M$class", "-e", "$class->run;";
  24     }
  25     die "$class run loop ended!\n";
  26 }
  27
  28 sub _running_under_par {
  29     # not the best test in the world, but works.
  30     return (grep { ref $_ eq "CODE" } @INC) ? 1 : 0;
  31 }
  32
  33 1;