Help for this page

Select Code to Download

Select or download this

sub foo::bar {print "bar\n";}
%main:: = (%main::, %foo::);
bar();

Select or download this

sub foo::bar {print "bar\n";}
foreach $name (keys %foo::) { 
    $main::{$name} = $foo::{$name};
}
bar();