40 lines
671 B
Perl
40 lines
671 B
Perl
#!/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;
|