#!/usr/bin/env perl
use 5.024;
use warnings;
use experimental qw< postderef signatures >;
use Mojo::JSON 'j';
use Mojo::File 'path';
use Mojolicious::Lite;
no warnings qw< experimental::postderef experimental::signatures >;
use constant DEFAULT_FILENAME => 'quotes.json';
my $config = load_config();
get '/' => sub ($c) {
my $quote = get_quote($config);
$c->render(
footer => undef,
header => undef,
url => undef,
title => 'Change Title!',
template => 'quote',
$quote->%*,
);
};
app->start;
sub get_quote ($conf) {
my $aref = $conf->{quotes};
return {
$conf->%*,
quote => $aref->[rand $aref->@*],
};
}
sub load_config (@args) {
my $quotes_path = shift(@args) // get_default_path()
// die "Can't find a suitable quotes file to serve";
return j path($quotes_path)->slurp;
}
sub get_default_path {
for my $dir_candidate ('.', path(__FILE__)->dirname->to_string) {
my $path = path($dir_candidate)->child(DEFAULT_FILENAME)->to_string;
return $path if -e $path;
}
return;
}
__DATA__
@@ quote.html.ep
%# Starting from boilerplate at
%# https://github.com/lukehaas/HTML5-Minimal-Boilerplate
<%= $title %>