From e1c07606b501e572148f78671246f2a317f30ae7 Mon Sep 17 00:00:00 2001
From: swag <swaggboi@slackware.uk>
Date: Sat, 4 Dec 2021 23:06:05 -0500
Subject: [PATCH] Begin Message model

---
 guestbook-ng.pl                  |  6 +++++-
 lib/GuestbookNg/Model/Message.pm | 13 +++++++++++++
 lib/GuestbookNg/Model/Test.pm    |  4 ----
 3 files changed, 18 insertions(+), 5 deletions(-)
 create mode 100644 lib/GuestbookNg/Model/Message.pm

diff --git a/guestbook-ng.pl b/guestbook-ng.pl
index bb3200f..20e2ab9 100755
--- a/guestbook-ng.pl
+++ b/guestbook-ng.pl
@@ -29,9 +29,13 @@ helper test => sub {
     state $test = GuestbookNg::Model::Test->new(pg => shift->pg)
 };
 
+helper message => sub {
+    state $test = GuestbookNg::Model::Message->new(pg => shift->pg)
+};
+
 # Routes
 under sub ($c) {
-    $c->test->create_table()
+    $c->pg->migrations->from_dir('migrations')->migrate(1);
 };
 
 get '/' => sub ($c) {
diff --git a/lib/GuestbookNg/Model/Message.pm b/lib/GuestbookNg/Model/Message.pm
new file mode 100644
index 0000000..a0d7f12
--- /dev/null
+++ b/lib/GuestbookNg/Model/Message.pm
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+package GuestbookNg::Model::Message;
+
+use Mojo::Base -base, -signatures;
+
+has 'pg';
+
+sub new($class, $pg, $object) {
+    bless {$pg => $object}
+}
+
+1;
diff --git a/lib/GuestbookNg/Model/Test.pm b/lib/GuestbookNg/Model/Test.pm
index 10075b3..8a9823a 100644
--- a/lib/GuestbookNg/Model/Test.pm
+++ b/lib/GuestbookNg/Model/Test.pm
@@ -14,10 +14,6 @@ sub test_model($self, $string) {
     "you've supplied: $string"
 }
 
-sub create_table($self) {
-    $self->pg->migrations->from_dir('migrations')->migrate(1);
-}
-
 sub now($self) {
     $self->pg->db->query('SELECT NOW() AS now')->text()
 }