rendered paste body#Dynamic module loader for listeners
sub load_listeners {
my @modules;
my $pmbot_dir;
foreach my $dir (@INC) {
if (-e "$dir/PMBot/Listeners/") {
#opendir($pmbot_dir, "$dir/PMBot/Listeners/") or die "cant opendir $dir/PMBot/Listeners/: $!";
#@modules = grep {/\.pm \z /xms} readdir($pmbot_dir);
foreach my $listener_module (glob "$dir/PMBot/Listeners/*.pm") { require $listener_module; }
closedir $pmbot_dir;
}
}
#foreach my $filename (@modules) {
# $filename =~ s/\.pm \z //;
# my $module_name = "PMBot/Listeners/$filename";
# require $module_name;
#}
}