package Example;
use vars qw( @Methods );
use Anything::You::Like;
...
no strict 'refs';
@Methods = grep *{__PACKAGE__ . "::$_"}{CODE}, $keys %{__PACKAGE__ . "::"};

1;