Add a .package method for convenience and abstraction

rakudo · Oct 6, 2013 · 9947610 · 9947610
1 parent d45e4da
commit 9947610
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Backtrace.pm b/src/core/Backtrace.pm
@@ -13,6 +13,10 @@ my class Backtrace::Frame {
         $s eq 'mu' ?? '' !! $s;
     }
 
+    method package(Backtrace::Frame:D:) {
+        $.code.package;
+    }
+
     multi method Str(Backtrace::Frame:D:) {
         my $s = self.subtype;
         $s ~= ' ' if $s.chars;