<% my $dbi = app->dbi; my $op = param('op') // ''; my $book_id = param('book-id'); my $books = $dbi->model('book')->select(['id', 'short_name'])->all; my $content; if ($book_id) { $content = $dbi->model('book')->select( 'content', where => {id => $book_id} )->value; } %> % layout 'common';

口語訳聖書オンライン語句検索

<%= text_field 'word' , style => "width:160px"%>
聖書

% if ($book_id) { %== $content % }

This site is create by Perl + Mojolicious. Auther is Yuki kimoto.