guestbook-ng/lib/GuestbookNg/Model/Test.pm

#!/usr/bin/env perl

package GuestbookNg::Model::Test;

use strict;
use warnings;
use Mojo::Base -base, -signatures;

has 'pg';

sub new($class, $pg, $object) {
    bless {
        $pg => $object
    }
}

sub test_model($self, $string) {
    "you've supplied: $string"
}

sub create_table($self) {
    $self->pg->migrations->from_string(
        "-- 1 up
        CREATE TABLE IF NOT EXISTS messages (
        id int,
        date timestamp with time zone,
        name varchar(255),
        msg varchar(255)
        );
        -- 1 down
        DROP TABLE messages;"
        )->migrate();
}

sub now($self) {
    $self->pg->db->query('SELECT NOW() AS now')->text()
}

1;