blob: c019a2ca36aa7382c5af840b6befa1e4c6c79747 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
package TgLib::Env;
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;
|
