Changeset 25673

Timestamp:

12/02/08 13:59:55 (5 weeks ago)

Author:

tokuhirom

Message:

more mouse. but, doesn't works.

Location:

lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine

Files:

• Interface.pm (modified) (5 diffs)
• RequestBuilder/CGI.pm (modified) (1 diff)

lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/Interface.pm

@@ -4 +4 @@
 
 my $ARGS = {};
+
+sub init_class {
+    my $klass = shift;
+    my $meta = Mouse::Meta::Class->initialize($klass);
+    $meta->superclasses('Mouse::Object')
+      unless $meta->superclasses;
+
+    no strict 'refs';
+    no warnings 'redefine';
+    *{ $klass . '::meta' } = sub { $meta };
+}
 
 sub import {
@@ -22 +33 @@
     warnings->import;
 
-    my $meta = Mouse::Meta::Class->initialize($caller);
-    $meta->superclasses('Mouse::Object')
-      unless $meta->superclasses;
-
-    no strict 'refs';
-    no warnings 'redefine';
-    *{ $caller . '::meta' } = sub { $meta };
+    init_class($caller);
 
     Mouse->export_to_level( 1 );
@@ -45 +50 @@
     _setup_writer($caller,  $writer);
 
-    Mouse::apply_roles($caller, 'HTTP::Engine::Role::Interface');
+    Mouse::Util::apply_all_roles($caller, 'HTTP::Engine::Role::Interface');
 
     "END_OF_MODULE";
@@ -74 +79 @@
 
     my $writer = $caller . '::ResponseWriter';
-    Mouse::init_class($writer);
+    init_class($writer);
 
     {
@@ -99 +104 @@
             $apply->('Finalize');
         }
-        Mouse::apply_roles($writer, @roles, "HTTP::Engine::Role::ResponseWriter");
+        for my $role (@roles, 'HTTP::Engine::Role::ResponseWriter') {
+            Mouse::Util::apply_all_roles($writer, $role);
+        }
     }
 

lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/RequestBuilder/CGI.pm

@@ -2 +2 @@
 use Mouse;
 
-with qw(
+with $_ for qw(
+    HTTP::Engine::Role::RequestBuilder::HTTPBody
+    HTTP::Engine::Role::RequestBuilder::ParseEnv
     HTTP::Engine::Role::RequestBuilder
-    HTTP::Engine::Role::RequestBuilder::ParseEnv
-    HTTP::Engine::Role::RequestBuilder::HTTPBody
 );