File Coverage

blib/lib/Mojolicious/Plugin/HTTPStatusRenderer.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	2	0.0
condition	0	5	0.0
subroutine	4	6	66.6
pod	1	1	100.0
total	17	35	48.5

package Mojolicious::Plugin::HTTPStatusRenderer;
use strict;
use warnings;
use utf8;
our $VERSION = '0.01';

use Mojo::Base 'Mojolicious::Plugin';
# taken from https://metacpan.org/source/GAAS/HTTP-Message-6.06/lib/HTTP/Status.pm
my %StatusCode = (
    100 => 'Continue',
    101 => 'Switching Protocols',
    102 => 'Processing',                      # RFC 2518 (WebDAV)
    200 => 'OK',
    201 => 'Created',
    202 => 'Accepted',
    203 => 'Non-Authoritative Information',
    204 => 'No Content',
    205 => 'Reset Content',
    206 => 'Partial Content',
    207 => 'Multi-Status',                    # RFC 2518 (WebDAV)
    208 => 'Already Reported',             # RFC 5842
    300 => 'Multiple Choices',
    301 => 'Moved Permanently',
    302 => 'Found',
    303 => 'See Other',
    304 => 'Not Modified',
    305 => 'Use Proxy',
    307 => 'Temporary Redirect',
    400 => 'Bad Request',
    401 => 'Unauthorized',
    402 => 'Payment Required',
    403 => 'Forbidden',
    404 => 'Not Found',
    405 => 'Method Not Allowed',
    406 => 'Not Acceptable',
    407 => 'Proxy Authentication Required',
    408 => 'Request Timeout',
    409 => 'Conflict',
    410 => 'Gone',
    411 => 'Length Required',
    412 => 'Precondition Failed',
    413 => 'Request Entity Too Large',
    414 => 'Request-URI Too Large',
    415 => 'Unsupported Media Type',
    416 => 'Request Range Not Satisfiable',
    417 => 'Expectation Failed',
    418 => 'I\'m a teapot',            # RFC 2324
    422 => 'Unprocessable Entity',            # RFC 2518 (WebDAV)
    423 => 'Locked',                          # RFC 2518 (WebDAV)
    424 => 'Failed Dependency',               # RFC 2518 (WebDAV)
    425 => 'No code',                         # WebDAV Advanced Collections
    426 => 'Upgrade Required',                # RFC 2817
    428 => 'Precondition Required',
    429 => 'Too Many Requests',
    431 => 'Request Header Fields Too Large',
    449 => 'Retry with',                      # unofficial Microsoft
    500 => 'Internal Server Error',
    501 => 'Not Implemented',
    502 => 'Bad Gateway',
    503 => 'Service Unavailable',
    504 => 'Gateway Timeout',
    505 => 'HTTP Version Not Supported',
    506 => 'Variant Also Negotiates',         # RFC 2295
    507 => 'Insufficient Storage',            # RFC 2518 (WebDAV)
    509 => 'Bandwidth Limit Exceeded',        # unofficial
    510 => 'Not Extended',                    # RFC 2774
    511 => 'Network Authentication Required',
);
my $template = do {local $/; };
sub register {
  my ($self, $app, $conf) = @_;

  return $app->routes->any(
    '/httpstatus/*code' => {code => ''} => \&_httpstatus);
}

sub _httpstatus {
  my $self = shift;
  my $code = $self->param('code')||$self->req->param('code');
  if ( defined $code ) {
    $code =~ s/[^a-zA-Z0-9]+//g;
  }

  $self->stash(sc => \%StatusCode);
  $self->stash(pcode => $code // '');

  $self->render(inline => $template, handler => 'ep');
}
1;

=pod

=head1 NAME

Mojolicious::Plugin::HTTPStatusRenderer - HTTP status renderer plugin

=head1 SYNOPSIS

  # Mojolicious
  $self->plugin('HTTPStatusRenderer');

  #Mojolicious::Lite
  plugin 'HTTPStatusRenderer';

  # start daemon, and
  # access http://:/httpstatus/

=head1 DESCRIPTION

L is a renderer for novice Web Programmer, rawr!

=head1 OPTIONS

L supports no options

=head1 METHODS


L inherits all methods from L and implements the following new ones

=head2 register

  my $route = $plugin->register(Mojolicious->new);

=head1 SEE ALSO

L, L, L, L, L, L

=head1 AUTHOR

turugina [e-mail]

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__DATA__