30 lines
No EOL
420 B
Perl
30 lines
No EOL
420 B
Perl
use v5.32;
|
|
use Object::Pad;
|
|
use strict;
|
|
use warnings;
|
|
|
|
class MetaBot::Config {
|
|
use Path::Tiny qw/path/;
|
|
use TOML qw/from_toml/;
|
|
|
|
has $_data;
|
|
|
|
BUILD {
|
|
my ($file) = @_;
|
|
my $pf = path($file);
|
|
|
|
my $raw_toml = $pf->slurp_utf8();
|
|
$_data = from_toml($raw_toml);
|
|
}
|
|
|
|
method get_list($section, $mapping, %args) {
|
|
|
|
}
|
|
|
|
# TODO make this handle sections
|
|
method get_string($name, %args) {
|
|
|
|
}
|
|
}
|
|
|
|
1; |