<code>
#!/usr/bin/env perl6
sub x($Level){say callframe($Level)};
for ( 0,1,2,3,4  ) {say x($_);}
<code>

$ ./CallFrameTest.pl6
./CallFrameTest.pl6 at line 3
True
./CallFrameTest.pl6 at line 5
True
SETTING::src/core/Any-iterable-methods.pm at line 478
True
SETTING::src/core/Any-iterable-methods.pm at line 466
True
SETTING::src/core/Seq.pm at line 188
True