package Mod11146642::All 1.00; use 5.012; # //, strict, say use warnings; use Exporter 5.47 qw(import); my %colons; my @inherited; BEGIN { $colons{$_} = $_ for keys %::Mod11146642::All::; } use Mod11146642::One; use Mod11146642::Two; BEGIN { for (sort keys %::Mod11146642::All::) { next if /^__ANON__$/; # ignore anonymous functions next if exists $colons{$_}; # ones that were in the namespace before weren't inherited push @inherited, $_; # if we're here, we inherited this } # local $" = ","; warn "inherited (@inherited)\n"; # un-comment this line if you want to debug the ineritance check } our @EXPORT = @inherited; 1;