#!/usr/local/bin/perl -w

# Find all functions in specified package
my $pkg = shift;

eval "use $pkg; 1"
  or die "Failed to load $pkg: $@\n";

# print functions
while (my ($key, $val) = each %{"${pkg}::"}) {
  print "$key\n" if defined *{$val}{CODE};
}