diff --git a/TelegramBot.pm b/TelegramBot.pm index d5a56d4..1373a89 100644 --- a/TelegramBot.pm +++ b/TelegramBot.pm @@ -47,6 +47,21 @@ sub new { # whitelist $Self->{Whitelist} = $Param{Whitelist}; + # include plugins + my @Plugins = glob("$FindBin::Bin/Plugins/*"); + if ( @Plugins ) { + use File::Basename; + PLUGIN: + for my $PluginPath ( @Plugins ) { + my $PluginName = basename($PluginPath); + my $PluginObject = require("$FindBin::Bin/Plugins/${PluginName}/Core.pm"); + if( !$PluginObject ) { + $Self->{LogObject}->error("Couldn't load plugin $PluginName"); + next PLUGIN; + } + } + } + return $Self; }