root/lang/perl/Ulgori/trunk/lib/Ulgori.pm @ 17627

package Ulgori;
use strict;
use warnings;
use 5.00800;
our $VERSION = '0.01';
use Ulgori::Web::Handler;
use Ulgori::Config;
use Ulgori::ComponentManager::Singleton;

use HTTP::Engine::Compat middlewares => [
    qw/
        ModuleReload
        DebugScreen
        DoCoMoGUID
        MobileAttribute
        +Ulgori::Web::Middleware::Encoding
        +Ulgori::Web::Middleware::FragileAuth
    /
];

sub bootstrap {
    Ulgori::ComponentManager::Singleton->get( 'Model::Log' ); # preload.

    my $cfg = Ulgori::Config->instance;

    HTTP::Engine->new(
        interface => {
            %{ $cfg->{Engine} },
            request_handler => \&Ulgori::Web::Handler::handler,
        },
    )->run;
}

1;
__END__

=encoding utf8

=head1 NAME

Ulgori -

=head1 SYNOPSIS

  use Ulgori;

=head1 DESCRIPTION

Ulgori is

=head1 TODO

no plan :-)

=head1 AUTHOR

Tokuhiro Matsuno E<lt>tokuhirom@gmail.comE<gt>

=head1 SEE ALSO

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut