my $symbol_table = *{"main::Example::Package::"}{HASH};

##</code><code>##

my $symbol_table = \%Example::Package::;

##</code><code>##

my $symbol_table = \%{__PACKAGE__ . '::'};

##</code><code>##

print "", Dumper($symbol_table), "\n";

##</code><code>##

my %subs = %{__PACKAGE__ . '::'};
*{$_}{CODE} or delete $subs{$_} for keys %subs;

##</code><code>##

my %subs = map { $_ => *{$_}{CODE} } grep *{$_}{CODE},
  keys %{__PACKAGE__ . '::'};

##</code><code>##

my %subs;
while ( my ($k,$v)=each %{__PACKAGE__ . '::'} ) {
    $subs{$k}=$v if *{$v}{CODE};
}

##</code><code>##

my @subs = grep *{$_}{CODE}, keys %{__PACKAGE__ . '::'};

##</code><code>##

package Example::Package;

use strict;
use warnings;
use Data::Dumper;

use constant foo => 1;

BEGIN {
    no strict 'refs';
    my %subs = map {$_ => 1} grep *{$_}{CODE},
      keys %{__PACKAGE__ . '::'};
    
    sub added_subs () {
        grep *{$_}{CODE} && !$subs{$_},
          keys %{__PACKAGE__ . '::'};
    }
}

use constant { bar => 2, baz => 3 };

print Dumper [added_subs];

__END__