23 lines
364 B
Perl
23 lines
364 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;
|
|
return path(File::HomeDir->my_dist_config($dist, { create => 1 }));
|
|
}
|
|
sub data_dir {
|
|
my $class = shift;
|
|
return path(File::HomeDir->my_dist_data($dist, { create => 1 }));
|
|
}
|
|
1;
|