2016-04-30 23:53:26 +02:00
|
|
|
package MarkovBot::Config;
|
|
|
|
use base qw(Exporter);
|
2016-07-04 21:32:07 +02:00
|
|
|
use 5.010;
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
2016-04-30 23:53:26 +02:00
|
|
|
|
|
|
|
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;
|