30 lines
575 B
Perl
30 lines
575 B
Perl
#!/usr/bin/env perl
|
|
|
|
package GuestbookNg::Model::Counter;
|
|
|
|
use Mojo::Base -base, -signatures;
|
|
|
|
has 'pg';
|
|
|
|
sub new($class, $pg, $pg_object) {
|
|
bless {$pg => $pg_object}
|
|
}
|
|
|
|
sub get_visitor_count($self) {
|
|
$self->pg->db->query(<<~'END_SQL')->text()
|
|
SELECT counter_value
|
|
FROM counters
|
|
WHERE counter_name = 'visitor';
|
|
END_SQL
|
|
}
|
|
|
|
sub increment_visitor_count($self) {
|
|
$self->pg->db->query(<<~'END_SQL')
|
|
UPDATE counters
|
|
SET counter_value = counter_value + 1
|
|
WHERE counter_name = 'visitor';
|
|
END_SQL
|
|
}
|
|
|
|
1;
|