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

Revision 17627, 1.0 kB (checked in by tokuhirom, 6 years ago)

use HTTP::Engine::Compat

Line 
1package Ulgori;
2use strict;
3use warnings;
4use 5.00800;
5our $VERSION = '0.01';
6use Ulgori::Web::Handler;
7use Ulgori::Config;
8use Ulgori::ComponentManager::Singleton;
9
10use HTTP::Engine::Compat middlewares => [
11    qw/
12        ModuleReload
13        DebugScreen
14        DoCoMoGUID
15        MobileAttribute
16        +Ulgori::Web::Middleware::Encoding
17        +Ulgori::Web::Middleware::FragileAuth
18    /
19];
20
21sub bootstrap {
22    Ulgori::ComponentManager::Singleton->get( 'Model::Log' ); # preload.
23
24    my $cfg = Ulgori::Config->instance;
25
26    HTTP::Engine->new(
27        interface => {
28            %{ $cfg->{Engine} },
29            request_handler => \&Ulgori::Web::Handler::handler,
30        },
31    )->run;
32}
33
341;
35__END__
36
37=encoding utf8
38
39=head1 NAME
40
41Ulgori -
42
43=head1 SYNOPSIS
44
45  use Ulgori;
46
47=head1 DESCRIPTION
48
49Ulgori is
50
51=head1 TODO
52
53no plan :-)
54
55=head1 AUTHOR
56
57Tokuhiro Matsuno E<lt>tokuhirom@gmail.comE<gt>
58
59=head1 SEE ALSO
60
61=head1 LICENSE
62
63This library is free software; you can redistribute it and/or modify
64it under the same terms as Perl itself.
65
66=cut
Note: See TracBrowser for help on using the browser.