perl - PSGI - 各 prefork-child のコンストラクター

Question

分岐後の各子のコンストラクターについて質問があります。例えば：

warn "INIT : Parent : ".$$;
my $stash;
sub {
    unless($stash) {
        warn "init : Child : ".$$;
        $stash = {
            dbh => {}
        };
    }
    return [ 200, ['Content-Type' => 'text/plain'], ['Hello World'] ];
}

このコードは機能していますが、これは悪い習慣です。そのようなものを作成したいと思います

package Myapp;
sub new {
    my $class=shift;
    my $self=bless {
        dbh =>{},
    }, $class;

}
sub call {
    my ($self, $env) = @_;
    # body
    return [ 200, ['Content-Type' => 'text/plain'], ['Hello World'] ];    }

Starman や Feersum のような prefork-server でどのように機能するかを誰かが説明してくれることを願っています (しかし、ある男 "Audrey Tang" は、Feersum はそれは良い考えではないと教えてくれました)

だから - あなたの答えに感謝します