blob: 9cb86be0788e44a1f32af6337e5f66822160b826 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package TgLib::Env;
use strict;
use warnings;
use parent qw<Exporter>;
our @EXPORT = qw<$HOME $CONFIG_HOME $CACHE_HOME $TOKEN>;
our $HOME = $ENV{'HOME'};
our $CONFIG_HOME = $ENV{'XDG_CONFIG_HOME'} || "$HOME/.config";
our $CACHE_HOME = $ENV{'XDG_CACHE_HOME'} || "$HOME/.cache";
our $TOKEN = $ENV{'TGUTILS_TOKEN'};
1;
|
