.WHY

Perl 6 has a .WHY metamethod that returns the documentation for an object.

$ cat xyz.p6

#= The C<xyz> function does something useful.
sub xyz() { say 'hello world'; }

say &xyz.WHY;

$ perl6 xyz.p6
The C<xyz> function does something useful.