GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-11-04 00:27:23 +01:00
Code Issues Projects Releases Wiki Activity

Refactor Utils::LoadPackages to use @INC

Browse Source
This commit is contained in:
Pragmatic Software 2021-07-22 05:09:07 -07:00
parent c6f8490491
commit dfda37227d
3 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/PBot/Core/Commands.pm
View File

@ -29,7 +29,7 @@ sub register_commands {
# register commands in Commands directory
$self->{pbot}->{logger}->log("Registering commands:\n");
load_packages($self, 'Commands');
load_packages($self, 'PBot::Core::Commands');
}
sub register {

2
lib/PBot/Core/IRCHandlers.pm
View File

@ -57,7 +57,7 @@ sub register_handlers {
my ($self, %conf) = @_;
$self->{pbot}->{logger}->log("Registering IRC handlers:\n");
load_packages($self, 'IRCHandlers');
load_packages($self, 'PBot::Core::IRCHandlers');
}
# this default handler prepends 'irc.' to the event-type and then dispatches

54
lib/PBot/Utils/LoadPackages.pm
View File

@ -9,7 +9,7 @@ package PBot::Utils::LoadPackages;
use PBot::Imports;
use Cwd;
use File::Basename;
# export load_packages subroutine
require Exporter;
@ -17,42 +17,42 @@ our @ISA = qw/Exporter/;
our @EXPORT = qw/load_packages/;
sub load_packages {
my ($self, $directory) = @_;
my ($self, $base) = @_;
use FindBin qw/$RealBin/;
my $base_path = join '/', split '::', $base;
my $cwd = getcwd;
foreach my $inc_path (@INC) {
if (-d "$inc_path/$base_path") {
my @packages = glob "$inc_path/$base_path/*.pm";
chdir "$RealBin/../lib/PBot/Core";
foreach my $package (sort @packages) {
$self->{pbot}->{refresher}->{refresher}->refresh_module($package);
my @packages = glob "$directory/*.pm";
my $name = basename $package;
$name =~ s/\.pm$//;
chdir $cwd;
$self->{pbot}->{logger}->log(" $name\n");
foreach my $package (sort @packages) {
$package = "PBot/Core/$package";
eval {
require "$package";
my $class = $package;
$class =~ s/\//::/g;
$class =~ s/\.pm$//;
my $class = $base . '::' . $name;
$self->{packages}->{$name} = $class->new(pbot => $self->{pbot});
$self->{pbot}->{refresher}->{refresher}->update_cache($package);
};
my ($name) = $class =~ /.*::(.*)$/;
$self->{pbot}->{logger}->log(" $name\n");
$self->{pbot}->{refresher}->{refresher}->refresh_module($package);
eval {
require "$package";
$self->{packages}->{$name} = $class->new(pbot => $self->{pbot});
$self->{pbot}->{refresher}->{refresher}->update_cache($package);
};
if (my $exception = $@) {
$self->{pbot}->{logger}->log("Error loading $package: $exception");
exit;
# error loading a package
if (my $exception = $@) {
$self->{pbot}->{logger}->log("Error loading $package: $exception");
exit;
}
}
# packages loaded successfully
return 1;
}
}
# no packages found
return 0;
}
1;