27 lines
468 B
Perl
27 lines
468 B
Perl
package GEmeTool::Config;
|
|
|
|
use v5.16.3;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Moo;
|
|
use File::HomeDir;
|
|
use Path::Tiny;
|
|
|
|
my $dist = 'GEmeTool';
|
|
|
|
sub config_dir {
|
|
my $class = shift;
|
|
my $config_dir = path(File::HomeDir->my_home)->child('.gemetool/config');
|
|
$config_dir->mkpath;
|
|
return $config_dir;
|
|
}
|
|
sub data_dir {
|
|
my $class = shift;
|
|
my $data_dir = path(File::HomeDir->my_home)->child('.gemetool/data');
|
|
$data_dir->mkpath;
|
|
return $data_dir;
|
|
}
|
|
1;
|