use Mojolicious::Lite;
use Mojo::Pg;
my $pg = Mojo::Pg->new( 'postgres://localhost/blog' );
$pg->migrations->from_data->migrate;
plugin Yancy => {
backend => 'pg://localhost/blog',
collections => {
blog => {
required => [ 'title', 'markdown', 'html' ],
properties => {
id => {
type => 'integer',
readOnly => 1,
},
title => {
type => 'string',
},
markdown => {
type => 'string',
format => 'markdown',
'x-html-field' => 'html',
},
html => {
type => 'string',
},
},
},
blog_comment => {
'x-list-columns' => [qw( id blog_id author_name author_email )],
required => [qw( author_name author_email content )],
properties => {
id => {
type => 'integer',
readOnly => 1,
},
blog_id => {
type => 'integer',
},
author_name => {
type => 'string',
},
author_email => {
type => 'string',
},
content => {
type => 'string',
},
},
},
},
};
get '/' => sub {
my ( $c ) = @_;
my @posts = $c->yancy->list( blog => {}, { order_by => { -desc => 'created' } } );
for my $post ( @posts ) {
$post->{comments} = [
$c->yancy->list(
blog_comment => { blog_id => $post->{id} },
{ order_by => { -desc => 'created' } },
)
];
}
return $c->render( 'index', posts => \@posts );
};
post '/blog/:id/comment' => sub {
my ( $c ) = @_;
# Create the new comment
my %item;
for my $field (qw( author_name author_email content )) {
$item{ $field } = $c->param( $field );
}
$item{ blog_id } = 0+$c->stash( 'id' );
eval { $c->yancy->create( blog_comment => \%item ) };
if ( $@ ) {
use Data::Dumper;
$c->app->log->debug( Dumper $@ );
return $c->reply->exception( Dumper $@ );
}
# Back to the blog
$c->res->headers->location( '/' );
return $c->rendered( 302 );
};
app->start;
__DATA__
@@ index.html.ep
Hello, world!
% for my $post ( @{ stash 'posts' } ) {
<%== $post->{html} %>
Comments
% for my $comment ( @{ $post->{comments} } ) {
<%= $comment->{author_name} %>
<%= $comment->{created} %>
<%= $comment->{content} %>
% }
% }
@@ migrations
-- 1 up
CREATE TABLE blog (
id SERIAL PRIMARY KEY,
title VARCHAR NOT NULL,
created TIMESTAMP NOT NULL DEFAULT NOW(),
markdown TEXT NOT NULL,
html TEXT NOT NULL
);
-- 1 down
DROP TABLE blog;
-- 2 up
CREATE TABLE blog_comment (
id SERIAL PRIMARY KEY,
blog_id INTEGER REFERENCES blog ON DELETE CASCADE,
created TIMESTAMP NOT NULL DEFAULT NOW(),
author_name VARCHAR NOT NULL,
author_email VARCHAR NOT NULL,
content TEXT NOT NULL
);
-- 2 down
DROP TABLE blog_comment;