Changeset 22616 for lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/Component/HTTPD.pm

Timestamp:

11/03/08 15:13:27 (5 years ago)

Author:

walf443

Message:

HTTP::Engineのミドルウェアを設定で足せるようにした

Files:

• lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/Component/HTTPD.pm (modified) (3 diffs)

lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/Component/HTTPD.pm

@@ -10 +10 @@
 use App::Mobirc::Web::Middleware::Encoding;
 use App::Mobirc::Web::Middleware::MobileAgent;
+
+use UNIVERSAL::require;
 
 has address => (
@@ -23 +25 @@
 );
 
+has middlewares => (
+    is      => 'ro',
+    isa     => 'ArrayRef',
+    default => sub { [] },
+);
+
 hook run_component => sub {
     my ( $self, $global_context ) = @_;
+
+    my $request_handler = App::Mobirc::Web::Middleware::Encoding->wrap( \&App::Mobirc::Web::Handler::handler );
+    for my $mw ( @{ $self->middlewares } ) {
+      $mw->require or die $@;
+      $request_handler = $mw->wrap($request_handler);
+    }
 
     HTTP::Engine->new(
@@ -34 +48 @@
                 alias => 'mobirc_httpd',
             },
-            request_handler => App::Mobirc::Web::Middleware::Encoding->wrap( \&App::Mobirc::Web::Handler::handler ),
+            request_handler => $request_handler,
         }
     )->run;