#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; #} }