検索機能を改善: /searchエンドポイントと2つのボタンによる検索を追加

- /searchエンドポイントを追加（検索クエリを/$qにリダイレクト）
- 検索フォームを「サイト内検索」と「Google検索」の2つのボタンに分離
- 404ページで検索結果が見つからない場合のGoogle検索リンクを追加
- 検索フォームのCSSスタイルを調整（横並び表示）
- テストケースを新しい検索動作に合わせて更新

🤖 Generated with [Claude Code](https://claude.ai/code)

Co-Authored-By: Claude <[email protected]>

Author: kfly8

lib/PJP/Web/Dispatcher.pm

@@ -442,6 +442,25 @@ get '/docs/perl/{path:.[^/]+\.pod}' => sub { # perl
 
 get '/docs/{path:(?:modules|perl|articles)/.+\.pod}' => $display_pod;
 
+# GET /search?q=%s でドキュメント検索を行う
+# 設置理由:
+# - 検索フォームで利用しやすくするため
+# - サイト内検索のショートカットを設定を案内しやすくするため
+# Ref: https://support.google.com/chrome/answer/95426?hl=ja#zippy=%2Curls%E6%A4%9C%E7%B4%A2%E8%AA%9E%E5%8F%A5-%E6%AC%84
+get '/search' => sub {
+    my ($c) = @_;
+
+    my $q = $c->req->param('q');
+
+    if (!$q) {
+        return $c->res_404();
+    }
+
+    return $c->redirect("/$q");
+};
+
+# 以下、ルーティングルールを用いて、ドキュメント検索を行っている
+
 get '/perl*' => sub {
     my ($c, $p) = @_;
     my ($splat) = @{$p->{splat}};
@@ -469,7 +488,7 @@ get '/{name:[A-Z-a-z][\w:]+}' => sub {
         return $c->redirect('/docs/' . $path);
     }
 
-    return $c->redirect('/func/' . $p->{name});
+    return $c->res_404({ query => $p->{name} })
 };
 
 1;

scss/_class.scss

@@ -33,10 +33,13 @@
     }
   }
   form {
+    display: inline-block;
+    vertical-align: middle;
+  }
+  .search-container {
     position: absolute;
     right: $gap;
     top: 10px;
-
   }
 }
 

static/css/screen.css

@@ -631,6 +631,10 @@ dd {
 }
 /* line 35, ../../scss/_class.scss */
 .nav form {
+  display: inline-block;
+  vertical-align: middle;
+}
+.nav .search-container {
   position: absolute;
   right: 7.292%;
   top: 10px;

t/endpoints.t

@@ -332,24 +332,45 @@ subtest 'perldoc.jp/$VALUE のように指定したら、よしなにリダイ
         };
     };
 
-    subtest '/{name} - いずれにも該当しなかった場合、最新ドキュメントか組み込み関数のページへリダイレクトする' => sub {
-        subtest '/Acme::Bleach は、/docs/modules/Acme-Bleach-1.12/Bleach.pod にリダイレクトされる' => sub {
+    subtest '/{name} - いずれにも該当しなかった場合、404が返る' => sub {
+        subtest '/Acme::Bleach は、/docs/modules/Acme-Bleach-*.*/Bleach.pod にリダイレクトされる' => sub {
             $mech->get('/Acme::Bleach');
             is $mech->status, 200, 'status is 200';
             like $mech->title, qr/^Acme::Bleach/;
 
-            $mech->base_like(qr{/docs/modules/Acme-Bleach-1.12/Bleach.pod$});
+            $mech->base_like(qr{/docs/modules/Acme-Bleach-\d+\.\d+/Bleach.pod$});
         };
 
-        subtest '/fuga は、/func/fuga にリダイレクトされる' => sub {
+        subtest '/fuga は、404が返る' => sub {
             $mech->get('/fuga');
             is $mech->status, 404, 'status is 404';
-            is $mech->title, "'fuga' は Perl の組み込み関数ではありません。 - perldoc.jp";
-
-            $mech->base_like(qr{/func/fuga$});
-            $mech->text_contains("'fuga' は Perl の組み込み関数ではありません。");
+            $mech->content_contains('fuga');
+            $mech->content_contains('検索結果が見つかりませんでした');
         };
     };
 };
 
+subtest 'GET /search' => sub {
+    subtest '検索クエリが指定された場合、/$qへリダイレクトされる' => sub {
+        # /search?q=chomp -> /chomp -> /func/chomp
+        $mech->get('/search?q=chomp');
+        is $mech->status, 200, 'status is 200';
+        is $mech->title, 'Perlの組み込み関数 chomp の翻訳 - perldoc.jp';
+        $mech->base_like(qr{/func/chomp$});
+    };
+
+    subtest 'モジュール名を検索した場合も/$qへリダイレクトされる' => sub {
+        # /search?q=Acme::Bleach -> /Acme::Bleach -> /docs/modules/...
+        $mech->get('/search?q=Acme::Bleach');
+        is $mech->status, 200, 'status is 200';
+        like $mech->title, qr/^Acme::Bleach/;
+        $mech->base_like(qr{/docs/modules/Acme-Bleach-\d+\.\d+/Bleach\.pod$});
+    };
+
+    subtest 'qパラメータがない場合、404が返る' => sub {
+        $mech->get('/search');
+        is $mech->status, 404, 'status is 404';
+    };
+};
+
 done_testing;

tmpl/404.tt

@@ -2,9 +2,13 @@
 [% IF is_hash_ref(message) && message.package %]
    [% message.package %]はみつかりませんでした。
    <div>
-   <a href="http://search.cpan.org/dist/[% message.package.replace('::','-') %]">CPANで見る</a><br />
    <a href="http://metacpan.org/module/[% message.package %]">MetaCPANで見る</a>
    </div>
+[% ELSIF is_hash_ref(message) && message.query %]
+   「[% message.query %]」の検索結果が見つかりませんでした。
+   <div>
+   <a href="https://www.google.co.jp/search?q=[% uri_escape('site:perldoc.jp ' _ message.query) %]">Google でサイト内を検索する</a>
+   </div>
 [% ELSE %]
    [% message || '該当のページは見つかりませんでした。' %]
 [% END %]

tmpl/layout.html

@@ -57,17 +57,15 @@
             <li><a href="/about">このサイトについて</a></li>
             </ul>
 
-            <!-- SiteSearch Google -->
-            <form method=get action="http://www.google.co.jp/search" id="GoogleSearch">
-            <input type=text name=q size=31 maxlength=255 value="">
-            <input type=hidden name=ie value=UTF-8>
-            <input type=hidden name=oe value=UTF-8>
-            <input type=hidden name=hl value="ja">
-            <input type=hidden name=domains value="perldoc.jp">
-            <input type="hidden" name="sitesearch" value="https://perldoc.jp">
-            <input type=submit name=btnG value="Google 検索">
+            <!-- SiteSearch -->
+            <div class="search-container">
+            <form method="get" action="/search" id="search-form">
+            <input type="text" name="q" size="31" maxlength="255" value="" id="search-input">
+            <input type="submit" value="検索">
+            <button type="button" onclick="window.location.href='https://www.google.co.jp/search?q='+encodeURIComponent('site:perldoc.jp '+document.getElementById('search-input').value)">Google検索</button>
             </form>
-            <!-- SiteSearch Google -->
+            </div>
+            <!-- SiteSearch -->
         </div>
         <div id="main" class="span-24 last">
             <div id="content">[% content %]</div>