#!/usr/bin/perl
use strict;
use warnings;
use Mojolicious::Lite;
get "/" => sub {
my $c = shift;
$c->clock;
$c->render("index");
};
helper clock => sub {
my $clock = { clock => time };
+shift->stash( $clock );
$clock;
};
get "/clock" => sub {
my $c = shift;
$c->render(json => $c->clock);
};
app->start;
__DATA__
@@ index.html.ep
MojoClock
<%= $clock %>