Yanchaプラグインのオートローダー

Yancha-Plugin-PluginAutoloader.pm

package Yancha::Plugin::PluginAutoloader;

use strict;
use warnings;

sub setup {
    my ($class, $sys) = @_;

    my %config;
    for my$plugin( @{$sys->config->{ plugins }} ) {
        my ($plugin_class, $plugin_args) = @{$plugin};
        $config{ $plugin_class } = $plugin_args;
    }

    my $plugin_dir = 'lib/Yancha/Plugin';

    my $autoload_plugins = [];
    for my$path( glob("$plugin_dir/*\.pm") ) {
        next unless $path =~ m|$plugin_dir/(.+)\.pm$|;

        my $plugin = "Yancha::Plugin::$1";

        #自分自身を呼んでも意味無し
        next if $plugin eq $class;

        #configが存在するならコアで読み込み済みなはず
        next if exists $config{ $plugin };

        push $autoload_plugins, [$plugin];
    }

    $sys->load_plugins( $autoload_plugins );
}


1;
__DATA__

=encoding utf8

=head1 NAME

Yancha::Plugin::PluginAutoload - Yanchaプラグインのオートローダー

=head1 SYNOPSIS

    #config.ini
    ...
    'plugins' => [
        [ 'Yancha::Plugin::PluginAutoloader' ],
    ...

=head1 DESCRIPTION

このプラグインを読み込むとI<lib/Yancha/Plugin/*.pm>のプラグインが(I<config.ini>に設定が無いものも含めて)全て自動で読み込まれます

=head1 SEE ALSO

https://github.com/uzulla/yancha

=head1 AUTHOR

@ichigotake

１、
$path =~ m|$plugin_dir/(.?).pm|;は　.pm => .pm$ か .pm\z
あと、(.?)は変ですよね。最低１文字は欲しいはず。

２、
$1はマッチが成功したか確認して使う。グローバル変数なのでマッチしなかったときに前の結果が残ってます。

３、
@{$config}[0]は$config->[0] でいいかと。

４、
$exists = 1;　last;はreturn 1;で十分

5,
config_existsメソッド作ってもいいけど、ハッシュ作っておけば
next unless $config_exists->{$plugin};
だけでいいんじゃないかなぁ。
件数が少ないので配列をなめて検索するのでもいいのだけれど、使わないクセを付けておくと良いと思います。

あれ、.pmにエスケープ入れたはずなのに表示されてない。
テスト .pm

やっぱりダメだ。
とりあえず.pmのドットはすべにマッチの意味では使ってないはずなので、エスケープで。

添削ありがとうございます！

指摘通りにリファクタしました