Merge pull request #22 from dolmen/fix/RT104102-add-status-308

Add HTTP status 308 (RFC 7238)

Author: karenetheridge

lib/HTTP/Status.pm

@@ -36,6 +36,7 @@ my %StatusCode = (
     304 => 'Not Modified',
     305 => 'Use Proxy',
     307 => 'Temporary Redirect',
+    308 => 'Permanent Redirect',              # RFC 7238
     400 => 'Bad Request',
     401 => 'Unauthorized',
     402 => 'Payment Required',
@@ -165,6 +166,7 @@ tag to import them all.
    HTTP_NOT_MODIFIED                    (304)
    HTTP_USE_PROXY                       (305)
    HTTP_TEMPORARY_REDIRECT              (307)
+   HTTP_PERMANENT_REDIRECT              (308)
 
    HTTP_BAD_REQUEST                     (400)
    HTTP_UNAUTHORIZED                    (401)

t/status.t

@@ -1,7 +1,7 @@
 #!perl -w
 
 use Test;
-plan tests => 9;
+plan tests => 10;
 
 use HTTP::Status qw(:constants :is status_message);
 
@@ -12,6 +12,7 @@ ok(is_success(HTTP_ACCEPTED));
 ok(is_error(HTTP_BAD_REQUEST));
 ok(is_client_error(HTTP_I_AM_A_TEAPOT));
 ok(is_redirect(HTTP_MOVED_PERMANENTLY));
+ok(is_redirect(HTTP_PERMANENT_REDIRECT));
 
 ok(!is_success(HTTP_NOT_FOUND));