Make 308 is_cacheable_by_default #150

Author: simbabque

Changes

@@ -2,6 +2,7 @@ Revision history for HTTP-Message
 
 {{$NEXT}}
     - Clean up backcompat code (GH#148) (Dan Book)
+    - Add "308 Permanent Redirect" to is_cacheable_by_default (GH#150) (simbabque)
 
 6.26      2020-09-10 02:34:25Z
     - Update comment which explains in which RFC 451 is defined (GH#143) (Olaf

lib/HTTP/Status.pm

@@ -153,6 +153,7 @@ sub is_cacheable_by_default ($) { $_[0] && ( $_[0] == 200 # OK
                                           || $_[0] == 206 # Not Acceptable
                                           || $_[0] == 300 # Multiple Choices
                                           || $_[0] == 301 # Moved Permanently
+                                          || $_[0] == 308 # Permanent Redirect
                                           || $_[0] == 404 # Not Found
                                           || $_[0] == 405 # Method Not Allowed
                                           || $_[0] == 410 # Gone
@@ -275,7 +276,7 @@ The status_message() function will translate status codes to human
 readable strings. The string is the same as found in the constant
 names above. If the $code is not registered in the L<list of IANA HTTP Status
 Codes|https://www.iana.org/assignments/http-status-codes/http-status-codes.xhtml>
-then C<undef> is returned. 
+then C<undef> is returned.
 
 =item is_info( $code )
 

t/status.t

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-plan tests => 48;
+plan tests => 49;
 
 use HTTP::Status qw(:constants :is status_message);
 
@@ -47,7 +47,7 @@ ok(!is_redirect(99));
 
 ok(is_cacheable_by_default($_),
   "Cacheable by default [$_] " . status_message($_)
-) for (200,203,204,206,300,301,404,405,410,414,451,501);
+) for (200,203,204,206,300,301,308,404,405,410,414,451,501);
 
 ok(!is_cacheable_by_default($_),
   "... is not cacheable [$_] " . status_message($_)