give Exception a backtrace method

rakudo · Oct 3, 2011 · 7823a4c · 7823a4c
1 parent 59d442b
commit 7823a4c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -1,6 +1,8 @@
 my class Exception {
     has $!ex;
 
+    method backtrace() { Backtrace.new(self) }
+
     method Str() {
         nqp::p6box_s(nqp::atkey($!ex, 'message'))
     }

diff --git a/src/core/Exceptions.pm b/src/core/Exceptions.pm
@@ -1,7 +1,6 @@
 # XXX should really be my X::Base eventually
 my package X {
     class Base is Exception {
-        has $.backtrace;
         has $.message;
 
         multi method Str(Base:D:) {