Revlin/mojo-lessons.pl

## mojo-lessons.pl
#!/usr/bin/perl -wT
use Mojolicious::Lite;
# The following is some really basic explorations of the capabilities of
# Mojolicious::Lite -- I will update as I find out more and a living (or
# more alive) version of this script is available on gist @
# https://gist.github.com/Revlin/5155856

my $app = app;
my $version = Mojolicious->VERSION;

get '/' => sub {
	  my $self = shift;

	#1) How to get info about the host environment(something like CGI's @ENV)

	# Some host environment info is modeled by Mojo::Message::Request
	# which I guess is intended to emulate the HTTP request process
	  my $req = $self->req;

	# $req can now be used to access other objects like header, url,
	# and env, this last being a hash which is equivalent to @ENV, if
	# running Mojolicious within a CGI environment [ with app->start('cgi') ]
	  my $URL = $req->url;	# now we should be able to display parts of the URL...
	  say $URL; 			# ...but running on a local server, this returns "/"
	  say $URL->host;		# and this is actually uninitialized


	#2) How to use inline text to "render" HTML

	  $self->render( inline => <<HTML );
	<!DOCTYPE html>
	<html><head>
	  <title>Mojolicious Title App</title>
	</head>
	<body>
	  Mojolicious: $version <br />
	  Reading: $URL
	</body></html>
HTML

	# Not the simplest way to render this content, since the output of the
	# following is equivallent to the inline heredoc used above...
	  #$self->render( text => "Mojolicious: $version\n Reading: $URL" );

	# K, this is the end of the / route
};

#3) A more consistent method of getting info about request headers

get '/mojolicious' => sub {
	my $self = shift;
	my $request = join("&", (
		'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,
			'if_modified_since: '.$self->req->headers->if_modified_since,
			'is_finished: '.$self->req->headers->is_finished,
			'is_limit_exceded: '.$self->req->headers->is_limit_exceeded,
			'last_modified: '.$self->req->headers->last_modified,
			'leftovers: '.$self->req->headers->leftovers,
			'location: '.$self->req->headers->location,
			'names: '.(join " ", sort @{$self->req->headers->names} ),
			'origin: '.$self->req->headers->origin,
			'proxy_authenticate: '.$self->req->headers->proxy_authenticate,
			'proxy_authorization: '.$self->req->headers->proxy_authorization,
			'range: '.$self->req->headers->range,
			'referrer: '.$self->req->headers->referrer,
			'sec_websocket_accept: '.$self->req->headers->sec_websocket_accept,
			'sec_websocket_extensions: '.$self->req->headers->sec_websocket_extensions,
			'sec_websocket_key: '.$self->req->headers->sec_websocket_key,
			'sec_websocket_protocol: '.$self->req->headers->sec_websocket_protocol,
			'sec_websocket_version: '.$self->req->headers->sec_websocket_version,
			'server: '.$self->req->headers->server,
			'set_cookie: '.$self->req->headers->set_cookie,
			'status: '.$self->req->headers->status,
			'te: '.$self->req->headers->te,
			'trailer: '.$self->req->headers->trailer,
			'transfer_encoding: '.$self->req->headers->transfer_encoding,
			'upgrade: '.$self->req->headers->upgrade,
			'user_agent: '.$self->req->headers->user_agent,
			'www_authenticate: '.$self->req->headers->www_authenticate,
		) );

	#4) How to use EP templates to "render" HTML

	$self->stash(message=>"la la la la");
	$self->render('mojo', request=>$request);

	# Go to http://localhost:3000/mojolicious to see these header values
};

#5) How to make Mojolicious search the project's root directory for static files

my $static = $app->static;
push @{$static->paths}, ($ENV{PWD});
# i.e. try navigating to http://localhost:3000/mojo-lessons.pl to see this source

# Now we'll start 'er up

$app->secrets('p@$$w0rd');
$app->start();
#$app->start('cgi');
# this other version of start() is for running as CGI script

__DATA__

@@ mojo.html.ep
<!DOCTYPE html>
<html><head>
  <title>Mojolicious Title App</title>
</head>
<body>
<br /><br /><br />
Welcome to the Mojolicious real-time web framework!<br />
This page was generated from the template "mojo.html.ep"<br />
<a href="<%== url_for %>">Click here</a> to reload the page.
<br />
<br />
<br />
<% foreach my $parm (split '&', $request ) { %>
  <%= $parm %><br />
<% } %>
</body>
</html>
	#!/usr/bin/perl -wT
	use Mojolicious::Lite;
	# The following is some really basic explorations of the capabilities of
	# Mojolicious::Lite -- I will update as I find out more and a living (or
	# more alive) version of this script is available on gist @
	# https://gist.github.com/Revlin/5155856

	my $app = app;
	my $version = Mojolicious->VERSION;

	get '/' => sub {
	my $self = shift;

	#1) How to get info about the host environment(something like CGI's @ENV)

	# Some host environment info is modeled by Mojo::Message::Request
	# which I guess is intended to emulate the HTTP request process
	my $req = $self->req;

	# $req can now be used to access other objects like header, url,
	# and env, this last being a hash which is equivalent to @ENV, if
	# running Mojolicious within a CGI environment [ with app->start('cgi') ]
	my $URL = $req->url; # now we should be able to display parts of the URL...
	say $URL; # ...but running on a local server, this returns "/"
	say $URL->host; # and this is actually uninitialized


	#2) How to use inline text to "render" HTML

	$self->render( inline => <<HTML );
	<!DOCTYPE html>
	<html><head>
	<title>Mojolicious Title App</title>
	</head>
	<body>
	Mojolicious: $version <br />
	Reading: $URL
	</body></html>
	HTML

	# Not the simplest way to render this content, since the output of the
	# following is equivallent to the inline heredoc used above...
	#$self->render( text => "Mojolicious: $version\n Reading: $URL" );

	# K, this is the end of the / route
	};

	#3) A more consistent method of getting info about request headers

	get '/mojolicious' => sub {
	my $self = shift;
	my $request = join("&", (
	'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,
	'if_modified_since: '.$self->req->headers->if_modified_since,
	'is_finished: '.$self->req->headers->is_finished,
	'is_limit_exceded: '.$self->req->headers->is_limit_exceeded,
	'last_modified: '.$self->req->headers->last_modified,
	'leftovers: '.$self->req->headers->leftovers,
	'location: '.$self->req->headers->location,
	'names: '.(join " ", sort @{$self->req->headers->names} ),
	'origin: '.$self->req->headers->origin,
	'proxy_authenticate: '.$self->req->headers->proxy_authenticate,
	'proxy_authorization: '.$self->req->headers->proxy_authorization,
	'range: '.$self->req->headers->range,
	'referrer: '.$self->req->headers->referrer,
	'sec_websocket_accept: '.$self->req->headers->sec_websocket_accept,
	'sec_websocket_extensions: '.$self->req->headers->sec_websocket_extensions,
	'sec_websocket_key: '.$self->req->headers->sec_websocket_key,
	'sec_websocket_protocol: '.$self->req->headers->sec_websocket_protocol,
	'sec_websocket_version: '.$self->req->headers->sec_websocket_version,
	'server: '.$self->req->headers->server,
	'set_cookie: '.$self->req->headers->set_cookie,
	'status: '.$self->req->headers->status,
	'te: '.$self->req->headers->te,
	'trailer: '.$self->req->headers->trailer,
	'transfer_encoding: '.$self->req->headers->transfer_encoding,
	'upgrade: '.$self->req->headers->upgrade,
	'user_agent: '.$self->req->headers->user_agent,
	'www_authenticate: '.$self->req->headers->www_authenticate,
	) );

	#4) How to use EP templates to "render" HTML

	$self->stash(message=>"la la la la");
	$self->render('mojo', request=>$request);

	# Go to http://localhost:3000/mojolicious to see these header values
	};

	#5) How to make Mojolicious search the project's root directory for static files

	my $static = $app->static;
	push @{$static->paths}, ($ENV{PWD});
	# i.e. try navigating to http://localhost:3000/mojo-lessons.pl to see this source

	# Now we'll start 'er up

	$app->secrets('p@$$w0rd');
	$app->start();
	#$app->start('cgi');
	# this other version of start() is for running as CGI script

	__DATA__

	@@ mojo.html.ep
	<!DOCTYPE html>
	<html><head>
	<title>Mojolicious Title App</title>
	</head>
	<body>
	<br /><br /><br />
	Welcome to the Mojolicious real-time web framework!<br />
	This page was generated from the template "mojo.html.ep"<br />
	<a href="<%== url_for %>">Click here</a> to reload the page.
	<br />
	<br />
	<br />
	<% foreach my $parm (split '&', $request ) { %>
	<%= $parm %><br />
	<% } %>
	</body>
	</html>