use v5.28;
use Mojolicious::Lite;
use Mojo::SQLite;
# Connect to the SQLite database and load our schema from the
# '@@ migrations' section, below
my $db = Mojo::SQLite->new( 'sqlite:thelist.db' );
$db->auto_migrate(1)->migrations->from_data();
# Configure Yancy
plugin Yancy => {
backend => { sqlite => $db },
# Read the schema configuration from the database
read_schema => 1,
schema => {
the_list => {
# Show these columns in the Yancy editor
'x-list-columns' => [qw( name address is_nice is_delivered )],
properties => {
# `id` is auto-increment, so hide it when creating rows
id => { readOnly => 1 },
},
},
},
};
# Display the naughty rows of the list
get '/', {
controller => 'yancy',
action => 'list',
template => 'the_list',
schema => 'the_list',
filter => {
is_nice => 0,
},
}, 'the_list.list';
# Set the delivered state of a list row
post '/deliver/:id', {
controller => 'yancy',
action => 'set',
schema => 'the_list',
properties => [qw( is_delivered )],
forward_to => 'the_list.list',
}, 'the_list.deliver';
# Start the app. Must be the last line of the script.
app->start;
__DATA__
@@ migrations
-- 1 up
CREATE TABLE the_list (
id INTEGER PRIMARY KEY AUTOINCREMENT,
name VARCHAR NOT NULL,
address VARCHAR NOT NULL,
is_nice BOOLEAN DEFAULT FALSE,
is_delivered BOOLEAN DEFAULT FALSE
);
@@ layouts/default.html.ep
%= content
@@ the_list.html.ep
% layout 'default';
Naughty List
% for my $item ( @$items ) {
%= $item->{name}
%= $item->{address}
%= form_for 'the_list.deliver', $item, begin
Delivered:
%= csrf_field
% my $delivered = $item->{is_delivered};
% end
% }
%= javascript begin
// Automatically submit the form when an input changes
$( 'form input' ).change( function ( e ) {
$(this).parents("form").submit();
} );
% end