lib/TgLib/Env.pm


1
2
3
4
5
6
7
8
9
10

package TgLib::Env;

use parent qw<Exporter>;
our @EXPORT = qw<$HOME $CONFIG_HOME $CACHE_HOME>;

our $HOME = $ENV{'HOME'};
our $CONFIG_HOME = $ENV{'XDG_CONFIG_HOME'} || "$HOME/.config";
our $CACHE_HOME = $ENV{'XDG_CACHE_HOME'} || "$HOME/.cache";

1;