output

glug
glug
A very important activity

test.p6

role doc { has Str $.doc is rw; }
multi trait_mod:<is>(&code, doc, $message) {
    &code does doc($message);
}
sub drink($pints) is doc("A very important activity") {
    say "glug" for 1..$pints;
}
drink(2);
say &drink.doc;