package App::ArchLinux::PackagerTools::Config; use strictures; use autodie; use Function::Parameters; use Log::Any qw($log); use Hash::Merge qw(merge); use Path::Tiny; use TOML qw(from_toml); =head1 NAME App::ArchLinux::PackagerTools::Config - ShortDesc =head1 SYNOPSIS use App::ArchLinux::PackagerTools::Config; # synopsis... =head1 DESCRIPTION # longer description... =head1 METHODS =head2 new my $config = App::ArchLinux::PackagerTools::Config->new(); Returns a new instance. =cut method new($class: $context, $deps = {}) { return $class->new_no_defaults($context, $deps); } method new_no_defaults($class: $context, $deps = {}) { return $context->{$class} if defined $context->{$class}; my $self = {}; bless $self, $class; $self->{deps} = $deps; $self->{config} = $self->_load_config(); $context->{$class} = $self; return $self; } =head2 Public Methods =cut =head3 get_config my $conf = $config->get_config(); Return config content as a hash. =cut method get_config() { return $self->{config}; } =head2 Private Methods =cut =head3 _load_config my $conf = $config->_load_config(); Load configuration from config file. You should use get_config() instead since that returns a cached in-memory copy. =cut method _load_config() { my $config = $self->_get_default_config(); my $file = path(($ENV{XDG_CONFIG_HOME} // $ENV{HOME}."/.config")."/perlpkg/config.toml"); if ($file->exists) { $log->debugf("Reading config file: %s", $file); my ($file_config, $err) = from_toml($file->slurp); die $log->errorf("Failed to parse config file: %s", $err) unless $file_config; $log->debugf("config = %s", $config); $log->debugf("file_config = %s", $file_config); $config = merge($file_config, $config); } else { $log->debug("Config file not found. Returning default config"); } $log->debugf("Loaded configuration is: %s", $config); return $config; } =head3 _get_default_config my $default_conf = $config->_get_default_config(); Return a hash with the default config values. =cut method _get_default_config() { return { cache => { root_dir => ($ENV{XDG_CACHE_HOME} // $ENV{HOME}."/.cache")."/perlpkg/v1/", }, allowed_maintainers => [ ], archweb => { cache_timeout => '60min', base_url => 'https://www.archlinux.org/', }, cpan => { cache_timeout => '60min', mirror_url => 'https://cpan.metacpan.org/', }, pacman => { pkgname_to_cpan_dist_map => { # pkgname => cpan_name 'perl-critic' => 'Perl::Critic', 'perl-ldap' => 'perl-ldap', 'perl-libintl-perl' => 'libintl-perl', 'perl-libwww' => 'libwww-perl', 'perl-locale-gettext' => 'gettext', 'perl-perlio-utf8-strict' => 'PerlIO-utf8_strict', 'perl-svn-simple-edit' => 'SVN-Simple', 'perl-term-readkey' => 'TermReadKey', 'perl-term-read-password' => 'Term-ReadPassword', 'perl-tidy' => 'Perl-Tidy', 'perl-tree-dag-node' => 'Tree-DAG_Node', }, }, }; } 1; __END__