getlexcaller-behavior

my $cl = { say $/ }; 

class C { 
    proto foo(|) {*};
    multi method foo(C:U: $cl, $) { 
        return self.foo($cl) 
    } 
    multi method foo(C:U: $cl) { 
        "b" ~~ /./; my $cds := nqp::getlexcaller('$/'); $cds = $/; $cl() 
    } 
} 

C.foo($cl, 1); # prints Nil

say "=" x 10;

proto bar(|) {*};
multi bar($cl, $) { 
    bar($cl) 
} 
multi bar($cl) {
     "bar" ~~ /./; my $cds := nqp::getlexcaller('$/'); $cds = $/; $cl() 
} 

bar($cl, 1); # prints ｢b｣