Real Life Example
file: code/validad/single_fork_app 53: my $BB = Winxle::BreadBoard->setup('Dev'); 54: foreach my $service_name (@services) { 55: if ( $service_name eq '-' ) { 56: sleep 1; 57: next; 58: } 59: if ( my $pid = fork() ) { # parent 60: $babies{$pid} = $service_name; 61: next; 62: } 63: else { # child 64: $SIG{CHLD} = $SIG{TERM} = $SIG{KILL} = 'DEFAULT'; 65: load_and_init_app( $BB, $service_name ); 66: } 67: }