Correct wrong data key name, clean up regex and debug msg.

Author: oiami

lib/MetaCPAN/Web/Controller/Search.pm

@@ -57,16 +57,17 @@ sub index : Path {
 
         if ( $results->{total} == 1 ) {
             my $module_name
-                = $results->{results}->[0]->[0]->{module}->[0]->{names};
+                = $results->{results}->[0]->[0]->{module}->[0]->{name};
             $c->res->redirect("/pod/$module_name");
             $c->detach;
         }
         elsif ( !$results->{total} && !$authors->{total} ) {
-            if ( $query =~ m/:/ ) {
-                $query =~ s/:+(?)/::/g if ( $query !~ m/(\w)(\b)::(\w)(\b)/ );
+            my $suggest = $query;
+            $suggest =~ s/:+/::/g;
+            if ( $suggest ne $query ) {
                 $c->stash(
                     {
-                        suggest => $query,
+                        suggest => $suggest,
                     }
                 );
             }

t/controller/search/suggestion.t

@@ -12,14 +12,8 @@ my %tests = (
 test_psgi app, sub {
     my $cb = shift;
     while ( my ( $k, $v ) = each %tests ) {
-
         ok( my $res = $cb->( GET "/search?q=$k" ), 'search for ' . $k );
         my $tx = tx($res);
-        use Data::Dump qw/dump/;
-        warn dump(
-            $tx->find_value(
-                '//div[@class="no-results"]//div[@class="alert alert-error"]')
-        );
         my $module
             = $tx->find_value(
             '//div[@class="no-results"]//div[@class="alert alert-error"]//a[1]'