# Pastebin 0byn472W
class A {
    has $.xx is rw = 0;
    multi method CALL-ME("more")       { 37 }
    multi method CALL-ME("parameters") { 8  }
    has &.method-cb is rw = {
        "default method-cb".say;
        .xx = 3;
    };
    method do-test {
        "calling method-cb".say;
        self.&!method-cb;

        $!xx.perl.say;
    }
}

my $a = A.new;

$a.method-cb = {
    .xx = 5 + .("more");
};

$a.do-test;