use header_name attribute in Runtime middleware

plack · Jan 24, 2014 · 5394229 · 5394229
1 parent c5a3896
commit 5394229
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Plack/Middleware/Runtime.pm b/lib/Plack/Middleware/Runtime.pm
@@ -10,11 +10,12 @@ sub call {
 
     my $start = [ Time::HiRes::gettimeofday ];
     my $res = $self->app->($env);
+    my $header = $self->header_name || 'X-Runtime';
 
     $self->response_cb($res, sub {
         my $res = shift;
         my $req_time = sprintf '%.6f', Time::HiRes::tv_interval($start);
-        Plack::Util::header_set($res->[1], 'X-Runtime', $req_time);
+        Plack::Util::header_set($res->[1], $header, $req_time);
     });
 }