p6.p6

sub where (&c) {
    my $wanted = &c.line;
    my $line-num = 0;
    my $file;
    my $offset;
    for $*EXECUTABLE.parent.parent.parent.child(&c.file).IO.lines -> $line {
        $line-num++;
        return "$file: {$line-num-$offset}" if $line-num == $wanted;
        if $line ~~ /^ '#line 1 ' $<file>=\S+/ {
            $file = $<file>;
            $offset = $line-num+1;
        }
    };
}

say "$_.name(): {where $_}" for Int.^methods;