file: code/validad/single_fork_app 32: sub load_and_init_app { 33: my $BB = shift; 34: my $service = shift; 35: $0 = $service; 36: 37: my $app = $BB->resolve( service => 'App/'.$service ); 38: 39: $app->run; 40: exit; 41: }