Changeset 18376 for lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface.pm

Timestamp:

08/28/08 13:02:02 (4 months ago)

Author:

tokuhirom

Message:

no evil way...

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface.pm (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface.pm

@@ -18 +18 @@
     };
 
-    @_ = ($class, );
-    goto \&Moose::import;
+    strict->import;
+    warnings->import;
+
+    return if $caller eq 'main';
+
+    Moose::init_meta($caller);
+    Moose->import( { into => $caller } );
 }