Changeset 30048 for lang/perl/HTTP-Engine-Middleware

Timestamp:

02/14/09 15:55:13 (4 years ago)

Author:

yappo

Message:

Static: yaml friendly

Location:

lang/perl/HTTP-Engine-Middleware/trunk

Files:

• lib/HTTP/Engine/Middleware/Static.pm (modified) (2 diffs)
• t/200_middlewares/static.t (modified) (1 diff)

lang/perl/HTTP-Engine-Middleware/trunk/lib/HTTP/Engine/Middleware/Static.pm

@@ -7 +7 @@
 use Cwd;
 use MouseX::Types::Path::Class;
+use Mouse::Util::TypeConstraints;
 use File::Spec::Unix;
+
+# corece of Regexp
+subtype 'HTTP::Engine::Middleware::Static::Regexp'
+    => as 'RegexpRef';
+coerce 'HTTP::Engine::Middleware::Static::Regexp'
+    => from 'Str' => via { qr/$_/ };
 
 has 'regexp' => (
     is       => 'ro',
-    isa      => 'Regexp',
+    isa      => 'HTTP::Engine::Middleware::Static::Regexp',
+    coerce   => 1,
     required => 1,
 );
@@ -162 +170 @@
     # to get the your application response
 
+Will you want to set config from yaml?
+
+    my $mw = HTTP::Engine::Middleware->new;
+    $mw->install( 'HTTP::Engine::Middleware::Static' => {
+        regexp  => '^/(robots.txt|favicon.ico|(?:css|img)/.+|js/(?!dynamic).+)$',
+        docroot => '/path/to/htdocs/',
+    });
+    HTTP::Engine->new(
+        interface => {
+            module => 'YourFavoriteInterfaceHere',
+            request_handler => $mw->handler( \&handler ),
+        }
+    )->run();
+
+    # $ GET http//localhost/js/jquery.js
+    # to get the /path/to/htdocs/js/jquery.js
+
+    # $ GET http//localhost/js/dynamic-json.js
+    # to get the your application response
 
 =head1 DESCRIPTION

lang/perl/HTTP-Engine-Middleware/trunk/t/200_middlewares/static.t

@@ -62 +62 @@
     my @config2 = (
         'HTTP::Engine::Middleware::Static' => {
-            regexp  => qr{^(/(?:css|js|img)/(?!dynamic).+|/manual/.*|/robots\.txt)$},
+            regexp  => '(/(?:css|js|img)/(?!dynamic).+|/manual/.*|/robots\.txt)$',
             docroot => Path::Class::Dir->new('t', 'htdocs')->stringify,
             directory_index => 'index.html',