Implement Test model

guestbook-ng.pl

@@ -4,9 +4,20 @@
 # Daniel Bowling <swaggboi@slackware.uk>
 
 use Mojolicious::Lite -signatures;
+use lib 'lib';
+use GuestbookNg::Model::Test;
+
+my $tm = GuestbookNg::Model::Test->new();
 
 get '/' => sub ($c) {
-    $c->render(template => 'index');
+    $c->render()
+} => 'index';
+
+any '/test' => sub ($c) {
+    my $method = $c->req->method;
+    my $string = $tm->test_model($c->param('string'));
+
+    $c->render(method => $method, string => $string);
 };
 
 app->start();

lib/GuestbookNg/Model/Test.pm

@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+package GuestbookNg::Model::Test;
+
+use strict;
+use warnings;
+use experimental qw{signatures};
+
+sub new($class) {
+    bless {}, $class
+}
+
+sub test_model($self, $string) {
+    "you've supplied: $string"
+}
+
+1;

templates/index.html.ep

@@ -1,3 +1,4 @@
 % layout 'default';
 % title 'Welcome';
 <h1>Welcome to the Mojolicious real-time web framework!</h1>
+<p>Test my <%= link_to(Model => 'test') %></p>

templates/test.html.ep

@@ -0,0 +1,13 @@
+% layout 'default';
+% title 'test';
+<h1>test page</h1>
+<% if ($method eq 'POST') { %>
+<p><%= $string %></p>
+<% } else { %>
+<form action="/test" method="post">
+  <label>Give me string:<br>
+    <input type="text" name="string"></label><br>
+  <br>
+  <input type="submit" value="Submit">
+</form>
+<% } %>