L3TDE-IRC/lib/L3TDE/Config.pm

18 lines
250 B
Perl

package L3TDE::Config;
use v5.34.1;
use strict;
use warnings;
use JSON;
use Path::Tiny;
sub new {
my $class = shift;
bless decode_json(
path(__FILE__)->parent->parent->parent->child('l3tde.json')->slurp_utf8 ),
$class;
}
1;