allow headers on CLI calls

diff --git a/Changes b/Changes
index 9341251..3ababd7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+  - Allow headers on CLI calls
+
+0.013 - 2012-04-03
   - Fix a weird interaction between match-spec parsing and module loading
     that was causing brokenness and test failures with perl 5.8.8
 

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index bd57c3b..f6804dc 100644 (file)
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -89,6 +89,15 @@ sub _test_request_spec_to_http_request {
 
   my $request = HTTP::Request->new($method => $path);
 
+  my @params;
+
+  while (my ($header, $value) = splice(@rest, 0, 2)) {
+    unless ($header =~ s/:$//) {
+      push @params, $header, $value;
+    }
+    $request->headers->push_header($header, $value);
+  }
+
   if (($method eq 'POST' or $method eq 'PUT') and @rest) {
     my $content = do {
       require URI;