Mojolicious Test Server - Pingable server that prints out Request Header + Body (if any)

test-mojo.pl

#!/usr/bin/perl
use Mojolicious::Lite;
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;

any '/' => sub {
	my $self = shift;
	my $request = '';
	$request .= "URL: ". $self->req->url ."\n\t";
	$request .= "Method: ". $self->req->method ."\n\t";
	$request .= join("\n\t", 
		(
			'accept: '.$self->req->headers->accept,
			'accept_encoding: '.$self->req->headers->accept_encoding,
    		'accept_charset: '.$self->req->headers->accept_charset,
    		'accept_language: '.$self->req->headers->accept_language,
    		'accept_ranges: '.$self->req->headers->accept_ranges,
    		'authorization: '.$self->req->headers->authorization,
    		'cache_control: '.$self->req->headers->cache_control,
    		'connection: '.$self->req->headers->connection,
    		'content_disposition: '.$self->req->headers->content_disposition,
    		'content_encoding: '.$self->req->headers->content_encoding,
    		'content_length: '.$self->req->headers->content_length,
    		'content_range: '.$self->req->headers->content_range,
    		'content_type: '.$self->req->headers->content_type,
    		'cookie: '.$self->req->headers->cookie,
    		'date: '.$self->req->headers->date,
    		'dnt: '.$self->req->headers->dnt,
    		'etag: '.$self->req->headers->etag,
    		'expect: '.$self->req->headers->expect,
    		'expires: '.$self->req->headers->expires,
    		'host: '.$self->req->headers->host,
    		'is_finished: '.$self->req->headers->is_finished,
    		'names: '.(join " ", sort @{$self->req->headers->names} ),
    		'referrer: '.$self->req->headers->referrer,
    		'user_agent: '.$self->req->headers->user_agent
		) 
	);
	$request .= "\n\n";
	$request .= "Data?\n";
	$request .= $self->req->body ."\n";
	
	# Render
	$self->render( text => $request );
};

app->start;