use strict;
use warnings;
#use Data::Dump;



sub current_constants {
    #warn
      my ($pkg) = caller;
    my @result;
    no strict 'refs';
    while ( my ($key,$val) = each %{"${pkg}::"} ) {
        #warn "*** ${pkg}::$key =>$val <", ref($val),">\n";
        if (ref $val eq "SCALAR") { 
            push @result, $key, $$val;
            next;
        }
        if ( defined (my $c_ref = *$val{CODE}) ) {
            my $proto = prototype $c_ref;
            if ( defined $proto && $proto eq "") {
                push @result, $key, &$c_ref;
            }
        }
    }
    return { @result };
}

package Some::Package;
use Test::More;


use constant TEST1 => "TEST1";
use constant TEST2 => "TEST2";
sub const() {"const"};

# those should be ignored
our $TEST1 = "bla";
our $scl = "Scalar";
our %hsh = (Hash=>"Hash");
our @arr = ("Array");
sub func {"bla"};




is_deeply(
          main::current_constants(),
          {
           const => "const",
           TEST1 => "TEST1",
           TEST2 => "TEST2"
          }
         );


done_testing;