18 lines
250 B
Perl
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;
|