#/usr/bin/perl

use v5.32;

use strict;
use warnings;

use FindBin;
use YAML;

my $Conf;
BEGIN { $Conf = YAML::LoadFile("$FindBin::Bin/.bot.cnf"); }

if ( !$Conf->%* ) {
    print STDERR "No valid config was found. Exiting...\n";
    exit;
}

use lib $Conf->{Lib};

use TelegramBot;

my $BotObject = TelegramBot->new($Conf->%*);
$BotObject->fetchMessages();

exit;