uploadin
Stevan Little [Sun, 19 Mar 2006 19:48:16 +0000 (19:48 +0000)]
t/005_basic.t

index 3695fac..8ffb6b8 100644 (file)
@@ -18,6 +18,12 @@ BEGIN {
     use warnings;
     use Moose;
     
+    coerce 'HTTPHeader'
+        => as ArrayRef 
+            => to { HTTPHeader->new(array => $_[0]) }
+        => as HashRef 
+            => to { HTTPHeader->new(hash => $_[0]) };    
+    
     has 'array' => (is => 'ro');
     has 'hash'  => (is => 'ro');    
 
@@ -26,12 +32,6 @@ BEGIN {
     use warnings;
     use Moose;
     
-    coerce 'HTTPHeader'
-        => as ArrayRef 
-            => to { HTTPHeader->new(array => $_[0]) }
-        => as HashRef 
-            => to { HTTPHeader->new(hash => $_[0]) };    
-    
     has 'header' => (is => 'rw', isa => 'HTTPHeader', coerce => 1);    
 }