swaggboi/guestbook-ng
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some smol tweaks to appease perlcritic

Browse Source
This commit is contained in:
swag 2022-04-22 12:44:19 -04:00
parent 1dc9d61832
commit d9ea2d78c4
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guestbook-ng.pl
View File

@ -62,7 +62,9 @@ under sub ($c) {
get '/' => sub ($c) { $c->redirect_to(page => {page => 'view'}) }; get '/' => sub ($c) { $c->redirect_to(page => {page => 'view'}) };
any [qw{GET POST}], '/sign' => sub ($c) { any [qw{GET POST}], '/sign' => sub ($c) {
my $v = $c->validation() if $c->req->method eq 'POST'; my $v;
$v = $c->validation() if $c->req->method eq 'POST';
if ($v && $v->has_data) { if ($v && $v->has_data) {
my $name = $c->param('name') || 'Anonymous'; my $name = $c->param('name') || 'Anonymous';

2
lib/GuestbookNg/Model/Counter.pm
View File

@ -7,7 +7,7 @@ use Mojo::Base -base, -signatures;
has 'pg'; has 'pg';
sub new($class, $pg, $pg_object) { sub new($class, $pg, $pg_object) {
bless {$pg => $pg_object} bless {$pg => $pg_object}, $class
} }
sub get_visitor_count($self) { sub get_visitor_count($self) {

2
lib/GuestbookNg/Model/Message.pm
View File

@ -10,7 +10,7 @@ sub new($class, $pg, $pg_object) {
bless { bless {
$pg => $pg_object, $pg => $pg_object,
max_posts => 5 max_posts => 5
} }, $class
} }
sub get_posts($self, $this_page = undef) { sub get_posts($self, $this_page = undef) {