26 lines
No EOL
425 B
Perl
26 lines
No EOL
425 B
Perl
use v5.32;
|
|
use strict;
|
|
use warnings;
|
|
use Object::Pad;
|
|
|
|
# Using this directly because I don't like flexibility;
|
|
use IO::Async::Loop::Epoll;
|
|
|
|
use MetaBot::Config;
|
|
|
|
class MetaBot::Core {
|
|
has $_loop;
|
|
has $_config;
|
|
|
|
BUILD {
|
|
my ($configfile) = @_;
|
|
|
|
$_config = MetaBot::Config->new($configfile);
|
|
$_loop = IO::Async::Loop::Epoll->new();
|
|
}
|
|
|
|
method get_loop() {$_loop}
|
|
method get_config() {$_config}
|
|
}
|
|
|
|
1; |