foo.p6

multi sub trait_mod:<is>(Method $m, :$accessible!) {
    $m.package.WHO{$m.name} = $m;
}

class A {
    has $.name = "default";

    method !rename($name) is accessible {
        $!name = $name;
    }
}

class B is A {
    method make-me-a-foo {
        A::rename(self, "foo");
    }
}

my $b = B.new;
say $b.name;
$b.make-me-a-foo;
say $b.name;