some thinking about exceptions

gistfile1.txt

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
index bab8e99..453613b 100644
--- a/src/core/Exception.pm
+++ b/src/core/Exception.pm
@@ -156,6 +156,9 @@ my role X::OS {
 }
 
 my role X::IO does X::OS { };
+my role X::IO::FileNotFound {
+       has $.file-not-found;
+}
 
 my class X::IO::Rename does X::IO is Exception {
     has $.from;
diff --git a/src/core/IO.pm b/src/core/IO.pm
index 869fc7c..525128b 100644
--- a/src/core/IO.pm
+++ b/src/core/IO.pm
@@ -383,18 +383,26 @@ sub rename(Cool $from as Str, Cool $to as Str) {
         }
     }
 }
+
+my role X::IO::FileNotFound { ... }
 my class X::IO::Copy { ... }
 sub copy(Cool $from as Str, Cool $to as Str) {
     pir::new__PS('File').copy(nqp::unbox_s($from), nqp::unbox_s($to));
     return True;
     CATCH {
+        my $x = X::IO::Copy.new(
+            :$from,
+            :$to,
+            os-error => .Str,
+        );
+
+        when .Str ~~ "No such file or directory" {
+            $x does X::IO::FileNotFound(file-not-found => $from);
+            $x.throw();
+        }
+
         default {
-            X::IO::Copy.new(
-                :$from,
-                :$to,
-                os-error => .Str,
-            ).throw;
+            $x.throw();
         }
     }
 }