That will also show your private parts, which is something that ordinarily one should never do in public. Assuming your package follows the naming convention of prepending an underscore to internal functions, one only has to further check that the first character of the function is not an underscore.

our @EXPORT = grep {
    defined *{${__PACKAGE__.'::'}{$_}}{CODE}
    and substr($_,0,1) ne '_'
  } keys %{__PACKAGE__.'::'};
[download]

--

g r i n d e r
just another bofh

print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u';