どこからも使用されていない PJP::ConfigLoader を削除

[hitode909]

• このファイルは15年前に追加されたもので、Amon2::ConfigLoaderを継承していて、実装はなにも持っていない
  • https://github.com/perldoc-jp/perldoc.jp/blob/master/lib/PJP/ConfigLoader.pm
• リポジトリ内のどこからも参照されていない

$ git grep ConfigLoader | wc -l
       0

• 現在の構成ではconfigはAmon2::Config::Simpleを使って読み込んでいるようです

  • perldoc.jp/lib/PJP.pm

    Lines 11 to 12 in 0409e2d

    	use Amon2::Config::Simple;
    	sub load_config { Amon2::Config::Simple->load(shift) }

  • Amon2側の経緯を確認すると
    • 2010/8/7に Amon2::ConfigLoaderからAmon2::Plugin::ConfigLoaderにリネーム tokuhirom/Amon@df456c1
    • 2010/10/6に、Amon2::Plugin::ConfigLoaderが消えて、Amon2::Config::Simpleが作られる tokuhirom/Amon@b9a06db
    • このリポジトリで利用しているAmon2は 6.15 https://github.com/perldoc-jp/perldoc.jp/blob/master/cpanfile.snapshot#L10
    • Amon2 6.15は 2020/10/9リリース https://metacpan.org/release/TOKUHIROM/Amon2-6.15/view/lib/Amon2.pm
    • よって、フレームワーク側では廃止された古い仕組みによるファイルとわかる
• 手元のDocker上で動作確認したところ、問題なく起動し、ドキュメント配信できました

おまけ：未使用ファイルの発見方法

正規表現でuse関係を抜き出して未使用ファイルを探索することで発見しました

• https://gist.github.com/hitode909/0cf076ffa60e026688d2d3efc38e33fc

$ time perl script/find-unused-packages-for-perldoc-jp.pl
Processing entry point: app.psgi
Processing entry file: script/update.pl
Processing entry file: script/carton.sh
Processing entry file: script/create_year_data.pl
Processing entry file: script/carton_install.sh
Processing entry file: script/scrape_cpan.pl
Processing entry file: script/find_unused_packages.pl
Processing entry file: script/create_docs.json.sh
Processing entry file: script/create_recent.pl
Processing entry file: script/scss.pl
Processing entry file: script/generate_heavy_diff.pl
Processing entry file: script/update_deployment.sh
Processing entry file: script/maintenance/pod-test.pl
Iteration 1: 9 reachable packages (+4)
Iteration 2: 12 reachable packages (+3)
Iteration 3: 12 reachable packages (+0)
lib/PJP/ConfigLoader.pm
Found 1 unused packages
perl script/find-unused-packages-for-perldoc-jp.pl  0.01s user 0.01s system 58% cpu 0.045 total

[kfly8]

👍️

（Ready for reviewではないですが、先行してコメント）
この正規表現で検出できなかった時、使用しているにも関わらず使用していないと判定するケースだと思いますが、
CI通っている(全エントリーポイントのステータスコードを期待するテストが通っている）ので大丈夫そう。
https://gist.github.com/hitode909/0cf076ffa60e026688d2d3efc38e33fc#file-find-unused-packages-for-perldoc-jp-pl-L48-L55

        # use Package
        if (/^\s*use\s+([\w:]+)/) {
            push @packages, $1;
        }
        # use parent qw/Package1 Package2/
        if (/^\s*use\s+parent\s+qw[\/\(]([^\/\)]+)[\)\/]/) {
            push @packages, split /\s+/, $1;
        }
        # use parent 'Package'
        if (/^\s*use\s+parent\s+['"]([^'"]+)['"]/) {
            push @packages, $1;
        }
        # Package->method
        if (/([\w:]+)->\w+/) {
            push @packages, $1 if $1 =~ /::/;
        }
    }

[hitode909]

@kfly8 ありがとうございます！おっしゃるとおりで、動的にモジュールをロードしている場合など、正規表現だけでは誤検知の可能性もあります。
descriptionに、手元の動作確認結果、フレームワークの経緯確認など追記して、draftを外しましたのでご確認おねがいします。

[kfly8]

LGTM!