Config: Fix config file parsing and parser error handling

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 6 insertions, 3 deletions

diff --git a/lib/App/ArchLinux/PackagerTools/Config.pm b/lib/App/ArchLinux/PackagerTools/Config.pm
index 4477053..bd8dfc1 100644
--- a/lib/App/ArchLinux/PackagerTools/Config.pm
+++ b/lib/App/ArchLinux/PackagerTools/Config.pm
@@ -4,7 +4,7 @@ use strictures;
 use autodie;
 use Function::Parameters;
 use Log::Any qw($log);
-use Hash::Merge;
+use Hash::Merge qw(merge);
 use Path::Tiny;
 use TOML qw(from_toml);
 
@@ -81,12 +81,15 @@ method _load_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 = from_toml($file->slurp);
+		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;
 }