# de-munged a bit:
*{$_."::AUTOLOAD"} = sub {
     shift(@a)->(@_);
} for qw{ J put the RAPH };