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