Fix suggestion handling when there's a search prefix

Author: oalders

e2e/home.spec.ts

@@ -1,6 +1,48 @@
-import { test, expect } from '@playwright/test';
+import { test, expect } from "@playwright/test";
 
-test('home page', async ({ page }) => {
-  await page.goto('/');
-  await expect(page).toHaveTitle(/Search the CPAN - metacpan.org/, { timeout: 10 });
+test("home page", async ({ page }) => {
+    await page.goto("/");
+    await expect(page).toHaveTitle(/Search the CPAN - metacpan.org/, {
+        timeout: 10,
+    });
+});
+
+test("suggest is correct", async ({ page }) => {
+    await page.goto("/");
+    const searchInput = page.getByPlaceholder("Search the CPAN");
+    await expect(searchInput).toBeVisible();
+    searchInput.fill("HTML:Restrict");
+    await searchInput.press("Enter");
+
+    await expect(page.getByRole('alert')).toContainText('Did you mean: HTML::Restrict');
+});
+
+test("suggest accounts for prefix and makes suggestion", async ({ page }) => {
+    await page.goto("/");
+    const searchInput = page.getByPlaceholder("Search the CPAN");
+    await expect(searchInput).toBeVisible();
+    searchInput.fill("distribution:HTML:Restrict");
+    await searchInput.press("Enter");
+
+    await expect(page.getByRole('alert')).toContainText('Did you mean: distribution:HTML::Restrict');
+});
+
+test("suggest accounts for prefix but cannot make suggestion", async ({ page }) => {
+    await page.goto("/");
+    const searchInput = page.getByPlaceholder("Search the CPAN");
+    await expect(searchInput).toBeVisible();
+    searchInput.fill("distribution:HTMLRestrict");
+    await searchInput.press("Enter");
+
+    await expect(page.getByRole('alert')).toBeHidden();
+});
+
+test("suggest ignores misspelled prefix and makes suggestion", async ({ page }) => {
+    await page.goto("/");
+    const searchInput = page.getByPlaceholder("Search the CPAN");
+    await expect(searchInput).toBeVisible();
+    searchInput.fill("disstribution:HTML:Restrict");
+    await searchInput.press("Enter");
+
+    await expect(page.getByRole('alert')).toContainText('Did you mean: disstribution::HTML::Restrict');
 });

lib/MetaCPAN/Web/Controller/Search.pm

@@ -88,10 +88,14 @@ sub index : Path : Args(0) {
 
         if ( !$results->{total} && !$authors->{total} ) {
             my $suggest = $query;
+            my $prefix  = q{};
+            if ( $suggest =~ s{^(author|distribution|module|version):}{} ) {
+                $prefix = $1 . ':';
+            }
             $suggest =~ s/\s*:+\s*/::/g;
-            if ( $suggest ne $query ) {
+            if ( $prefix . $suggest ne $query ) {
                 $c->stash( {
-                    suggest => $suggest,
+                    suggest => $prefix . $suggest,
                 } );
             }
             $c->stash( {