Changeset 29952 for lang/perl/HTTP-Engine

Timestamp:

02/12/09 15:24:12 (4 years ago)

Author:

tokuhirom

Message:

- '::Util' => [qw/apply_all_roles/], works with Mouse svn HEAD.
- add_method works with mouse :)
- and simplify the code.

Files:

• lang/perl/HTTP-Engine/branches/any-moose/lib/HTTP/Engine/Interface.pm (modified) (6 diffs)

lang/perl/HTTP-Engine/branches/any-moose/lib/HTTP/Engine/Interface.pm

@@ -1 +1 @@
 package HTTP::Engine::Interface;
 use Any::Moose;
-
-BEGIN {
-    if (Any::Moose::is_moose_loaded()) {
-        require Moose::Util;
-        *apply_all_roles = \&Moose::Util::apply_all_roles;        
-    }
-    else {
-        *apply_all_roles = \&Mouse::Util::apply_all_roles;
-    }
-}
+use Any::Moose (
+    '::Util' => [qw/apply_all_roles/],
+);
 
 my $ARGS;
@@ -78 +71 @@
         $@ and die $@;
     }
+
     my $instance = $builder->new;
-
-    if (Any::Moose::is_moose_loaded()) {
-        $caller->meta->add_method(request_builder => sub { $instance });
-    }
-    else {
-        no strict 'refs';
-        *{"$caller\::request_builder"} = sub { $instance };
-    }
+    $caller->meta->add_method(request_builder => sub { $instance });
 }
 
@@ -94 +81 @@
     my $writer = _construct_writer($caller, $args)->new;
     
-    if (Any::Moose::is_moose_loaded()) {
-        $caller->meta->add_method(response_writer => sub { $writer });
-    }
-    else {
-        no strict 'refs';
-        *{"$caller\::response_writer"} = sub { $writer };
-    }
+    $caller->meta->add_method(response_writer => sub { $writer });
 }
 
@@ -117 +98 @@
         my $apply = sub { push @roles, "HTTP::Engine::Role::ResponseWriter::$_[0]" };
         if ($args->{finalize}) {
-            if (Any::Moose::is_moose_loaded()) {
-                $writer->meta->add_method(finalize => $args->{finalize});               
-            }
-            else {
-                no strict 'refs';
-                *{"$writer\::finalize"} = $args->{finalize};
-            }
+            $writer->meta->add_method(finalize => $args->{finalize});               
         } else {
             if ($args->{response_line}) {
@@ -129 +104 @@
             }
             if (my $code = $args->{output_body}) {
-                if (Any::Moose::is_moose_loaded()) {
-                    $writer->meta->add_method(output_body => $code);
-                } 
-                else {
-                    no strict 'refs';                    
-                    *{"$writer\::output_body"} = $code;
-                }
+                $writer->meta->add_method(output_body => $code);
             } else {
                 $apply->('OutputBody');
             }
             if (my $code = $args->{write}) {
-                if (Any::Moose::is_moose_loaded()) {
-                    $writer->meta->add_method(write => $code);
-                } 
-                else {   
-                    no strict 'refs';                                 
-                    *{"$writer\::write"} = $code;
-                }
+                $writer->meta->add_method(write => $code);
             } else {
                 $apply->('WriteSTDOUT');
@@ -152 +115 @@
             $apply->('Finalize');
         }
-        if (Any::Moose::is_moose_loaded()) {
-            apply_all_roles($writer, @roles, 'HTTP::Engine::Role::ResponseWriter');
-        }
-        else {
-            for my $role (@roles, 'HTTP::Engine::Role::ResponseWriter') {
-                apply_all_roles($writer, $role);
-            }
+
+        for my $role (@roles, 'HTTP::Engine::Role::ResponseWriter') {
+            apply_all_roles($writer, $role);
         }
     }