23 lines
325 B
Perl
23 lines
325 B
Perl
package MarkovBot::Config;
|
|
use base qw(Exporter);
|
|
use 5.010;
|
|
use strict;
|
|
use warnings;
|
|
|
|
our @EXPORT = qw(config);
|
|
|
|
use FindBin qw($Bin);
|
|
use YAML::Tiny;
|
|
|
|
sub config( $ ) {
|
|
# config(var)
|
|
# returns config value
|
|
|
|
my $var = shift;
|
|
|
|
my $yaml = YAML::Tiny->read( "$Bin/config.yml" );
|
|
return $yaml->[0]->{$var};
|
|
}
|
|
|
|
1;
|