#!/usr/bin/env perl
use Mojolicious::Lite;
use Time::HiRes 'time';
use FindBin qw($Bin);
use lib "$Bin/lib";

my $startup = time;

plugin Config => {file => "$Bin/my-hello-app.beta.conf"};

helper storage => sub {
    # instantiate a storage class; filesystem, database, or in-memory based on config...
    # As long as the present the same interface, it doesn't matter.
};

helper useragent => sub {return state $ua = Mojo::UserAgent->new;};

helper myhello => sub {
    my $c = shift;

    return state $hello_obj = do {
        require Model::Hello;
        Model::Hello->new(
            storage     => $c->storage,
            ua          => $c->useragent,
        );
    };
};

get '/hello' => sub {
    my $c = shift;
    $c->render(json => $c->myhello->hello);
};

get '/_live' => sub { shift->render( json => { alive_since => (time - $startup) } ) };

app->start;

##</code><code>##

#!/usr/bin/env perl

use Test::More;
use Test::Mojo;
use FindBin qw($Bin);
use lib "$Bin/../lib";

my $t = Test::Mojo->new(Mojo::File->new("$Bin/../hello"));

$t->get_ok('/_live')
    ->status_is(200)
    ->json_has('/alive_since');

$t->get_ok('/hello')
    ->status_is(200)
    ->json_is({success => 1, code => 200, message => 'OK'});

done_testing();