#!/usr/bin/env perl6

# Reference: https://docs.perl6.org/type/CallFrame

for 1..* -> $level {
    given callframe($level) -> $frame {
        when $frame ~~ CallFrame {
            next unless $frame.code ~~ Routine;
            say $frame.code.package;
        default {
            say "no calling routine or method found";

$ CallFrameTest.pl6
Died with X::Multi::NoMatch
  in block  at ./CallFrameTest.pl6 line 8
  in block <unit> at ./CallFrameTest.pl6 line 5

Who called X::Multi::NoMatch?  And zef has no record of it.

I pulled this out of the example  on


Many thanks,

Reply via email to