Supress line number if throw X::Package::Stubbed

rakudo · Sep 11, 2017 · edac1d6 · edac1d6
1 parent 0ca5ffa
commit edac1d6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -1898,11 +1898,13 @@ my class X::Package::UseLib does X::Comp {
 }
 my class X::Package::Stubbed does X::Comp {
     has @.packages;
-    # TODO: suppress display of line number
     method message() {
         "The following packages were stubbed but not defined:\n    "
         ~ @.packages.join("\n    ");
     }
+    multi method gist(::?CLASS:D: :$sorry = True, :$expect = True) {
+        $.message;
+    }
 }
 
 my class X::Phaser::PrePost is Exception {