#!/usr/bin/perl
use Mojolicious::Lite -signatures;
use File::Replace qw/replace3/;
use Mojo::JSON qw/encode_json decode_json/;
use Mojo::File;
my $DATA_FILE = Mojo::File->new('/path/to/data.json');
helper defaults => sub ($c, $param) {
return undef unless -e $DATA_FILE;
my $defaults = decode_json( $DATA_FILE->slurp );
return $defaults->{$param};
};
get '/' => sub ($c) { $c->render(template => 'index') } => 'index';
post '/' => sub ($c) {
my (undef,$outfh,$repl) = replace3($DATA_FILE);
print $outfh encode_json {
name => $c->param('name'),
};
$repl->finish;
$c->render(template => 'index', message => "Form submitted!");
} => 'submit';
app->start;
__DATA__
@@ index.html.ep
Hello, World!
% if ( stash 'message' ) {
<%= stash 'message' %>
% }
%= form_for submit => ( method=>'post' ) => begin
%= label_for name => 'Your Name'
%= text_field name => defaults 'name'
%= submit_button 'Submit'
%= end
%= link_to Reset => 'index'