require Your::Module;

my $pkg = 'Your::Module';

for(grep /^$pkg\::/, keys %constant::declared) {
  my($name) = /::(\w+)$/;
  my $val   = $pkg->can($name)->();

  print "$name: $val\n";
}