Select Code to Download

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

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

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

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

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

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

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

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

package Example::Package;

...
print Dumper [added_subs];

__END__