Web Server初期化・起動処理

20130527_1

# セットアップ処理をしています。
sub BUILD {
    my $self = shift;
    $self->setup_dispatcher();
    $self->setup_view();
    $self->setup_context();
}
 
# PSGIの仕様にそって、関数の参照を返却しています。
sub to_app {
    my $self = shift;
    my $app = sub {
        my $env = shift;
        local $Ze::GLOBAL = {};
        my $c = $self->prepare_context( $env );
        $c->dispatch();
    };
    return $app;
}