* fixes

lib/CMTD/Helpers.pm

@@ -10,7 +10,7 @@ sub register {
   my ($self, $app) = @_;
 
   $app->helper(referrer => sub {
-    my ($c, $url) = @_;
+    my ($c) = @_;
     my $url = $c->req->headers->referrer ||
               $c->req->param('url');
     return $url;

lib/CMTD/Main.pm

@@ -7,7 +7,7 @@ use utf8;
 use Mojo::Base 'Mojolicious::Controller';
 
 sub index {
-  my $self = shift;
+  my ($self) = @_;
 
   $self->render(text => 'Go away!');
 }
@@ -21,26 +21,29 @@ sub c_list {
 sub c_add {
   my ($self) = @_;
 
-  unless (my $ref = $self->referrer and ref $ref eq 'HASH') {
+  my $ref = $self->referrer;
+  unless ($ref and ref($ref) eq 'HASH') {
     $self->res->code(400);
-    $self->render(text => "Can't detect referred page");
+    $self->render(text => "can't detect referred page");
     return;
   }
 
-  unless (my $site = $self->app->sites->{ $ref->{site} }) {
+  my $site = $self->app->sites->{ $ref->{site} };
+  unless ($site and ref($site) eq 'HASH') {
     $self->res->code(400);
-    $self->render(text => "No such site");
+    $self->render(text => "no such site");
     return;
   }
 
   eval {
+    1;
   } or do {
     chomp $@;
     my $msg = sprintf "Error when listing comments for %s/%s: %s",
       $ref->{site}, $ref->{pid}, $@;
     $self->app->log->error($msg);
     $self->res->code(500);
-    $self->render(text => 'Internal error');
+    $self->render(text => 'internal error');
   };
 }