added content_location method to Mojo::Headers (closes #695)

mojolicious · Oct 24, 2014 · db69bad · db69bad
1 parent 8379a27
commit db69bad
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,6 @@
 
 5.55  2014-10-24
+  - Added content_location method to Mojo::Headers.
 
 5.54  2014-10-23
   - Deprecated Object-Oriented Mojo::JSON API.

diff --git a/lib/Mojo/Headers.pm b/lib/Mojo/Headers.pm
@@ -9,9 +9,9 @@ has max_line_size => sub { $ENV{MOJO_MAX_LINE_SIZE} || 10240 };
 my %NORMALCASE = map { lc($_) => $_ } (
   qw(Accept Accept-Charset Accept-Encoding Accept-Language Accept-Ranges),
   qw(Allow Authorization Cache-Control Connection Content-Disposition),
-  qw(Content-Encoding Content-Length Content-Range Content-Type Cookie DNT),
-  qw(Date ETag Expect Expires Host If-Modified-Since If-None-Match),
-  qw(Last-Modified Link Location Origin Proxy-Authenticate),
+  qw(Content-Encoding Content-Length Content-Location Content-Range),
+  qw(Content-Type Cookie DNT Date ETag Expect Expires Host If-Modified-Since),
+  qw(If-None-Match Last-Modified Link Location Origin Proxy-Authenticate),
   qw(Proxy-Authorization Range Sec-WebSocket-Accept Sec-WebSocket-Extensions),
   qw(Sec-WebSocket-Key Sec-WebSocket-Protocol Sec-WebSocket-Version Server),
   qw(Set-Cookie Status TE Trailer Transfer-Encoding Upgrade User-Agent Vary),
@@ -302,6 +302,13 @@ Shortcut for the C<Content-Encoding> header.
 
 Shortcut for the C<Content-Length> header.
 
+=head2 content_location
+
+  my $location = $headers->content_location;
+  $headers     = $headers->content_location('http://127.0.0.1/foo');
+
+Shortcut for the C<Content-Location> header.
+
 =head2 content_range
 
   my $range = $headers->content_range;

diff --git a/t/mojo/headers.t b/t/mojo/headers.t
@@ -58,6 +58,7 @@ is $headers->content_disposition('foo')->content_disposition, 'foo',
   'right value';
 is $headers->content_encoding('foo')->content_encoding,   'foo', 'right value';
 is $headers->content_length('foo')->content_length,       'foo', 'right value';
+is $headers->content_location('foo')->content_location,   'foo', 'right value';
 is $headers->content_range('foo')->content_range,         'foo', 'right value';
 is $headers->content_type('foo')->content_type,           'foo', 'right value';
 is $headers->cookie('foo')->cookie,                       'foo', 'right value';