Changeset 25622 for lang/perl/HTTP-Engine/trunk/lib

Timestamp:

12/01/08 19:36:12 (4 years ago)

Author:

tokuhirom

Message:

oops

Files:

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

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Types/Core.pm

@@ -62 +62 @@
 
 do {
-    subtype Handler => as 'CodeRef';
+    subtype Handler => +{ as => 'CodeRef' };
     coerce Handler => +{ Str => sub { $_[0] = \&{$_[0]} } };
 };