From b01a053e3d4012064a667745634010dd654b4777 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Mon, 24 Apr 2017 11:12:08 +0200
Subject: Update exceptions with more meaningful messages

---
 lib/Config.pm6 | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

(limited to 'lib/Config.pm6')

diff --git a/lib/Config.pm6 b/lib/Config.pm6
index 4078d73..2fa01bf 100644
--- a/lib/Config.pm6
+++ b/lib/Config.pm6
@@ -2,7 +2,7 @@
 
 use v6.c;
 
-use Config::Exception::UnsupportedTypeException;
+use Config::Exception::MissingParserException;
 use Config::Exception::UnknownTypeException;
 use Config::Exception::FileNotFoundException;
 use Config::Type;
@@ -48,7 +48,9 @@ class Config is export
 
         my $type = self.get-parser-type($path);
 
-        Config::Exception::UnknownTypeException.new.throw() if $type eq Config::Type::unknown;
+        Config::Exception::UnknownTypeException.new(
+            type => $type
+        ).throw() if $type eq Config::Type::unknown;
 
         "Config::Parser::" ~ $type;
     }
@@ -91,12 +93,24 @@ class Config is export
 
     multi method read(Str $path, Str $parser = "")
     {
-        Config::Exception::FileNotFoundException.new.throw() unless $path.IO.f;
+        Config::Exception::FileNotFoundException.new(
+            path => $path
+        ).throw() unless $path.IO.f;
 
         $!parser = self.get-parser($path, $parser);
 
-        require ::($!parser);
-        $!content = ::($!parser).read($path);
+        try {
+            CATCH {
+                when X::CompUnit::UnsatisfiedDependency {
+                    Config::Exception::MissingParserException.new(
+                        parser => $parser
+                    ).throw();
+                }
+            }
+
+            require ::($!parser);
+            $!content = ::($!parser).read($path);
+        }
 
         return True;
     }
-- 
cgit v1.1