Your goals are a little contradictory. One thing Perl modules are meant to simplify is not throwing everything into the same namespace. That's why Exporter does it in a controlled fashion. As it points out,

Exports pollute the namespace of the module user.

If all you're interested in is having your program read in a bunch of variables and values, don't use modules. Instead, you can use the do function to read them in, something like this:

# stuff.pl
$fred = 'foo';
$barney = 'bar';
# ...
[download]

#! /usr/bin/perl
# no strict unless "stuff.pl" my's everything.
# (In which case all the vars will be lexical here.)
do 'stuff.pl' or die "Couldn't read the stuff";
print $fred, "\n";
[download]

print $a::fred;
[download]

package foo;
$x = "a string";
@y = qw(an array);
%z = qw(a hash);

sub func1 { print "in foo:: \n" }

1;

package main;

foreach my $sym (keys %foo::) {
    *{"main::$sym"} = *{"foo::$sym"};
}
[download]

broquaint

package Foo;

our $a = "a";
our $b = "b";

sub import
{
        my ($self) = @_;
        my ($caller_package) = caller;

        foreach (keys %{"${self}::"})
        {
                *{"${caller_package}::$_"} = *$_;
        }
}
[download]

Thans to everyone for their comments thus far. Let me say that this is only an idle project that I am mussing with just to see how it all works. This will /not/ be production code...ever.

My goal with this is mainly focused around better understanding the minutiae of packages and symbol tables. Controlling exports/imports between packages seems like an interesting test to me.

Thanks again, and fear not, this project is a test only. You have given me much to ponder in the meantime. Keep em coming.

Your humble apprentice.

package other;

$VAR = 'SCALAR';
@array = ('ARRAY') x 4;
my @exports = qw ($VAR @array);



sub import {
    no strict 'refs';
    my $used_name = shift; # Remove the use name
    my $that_pack = caller();
    foreach (@exports){
        m/^([\@\$\*\&\%])(\w+)/;
        my ($t,$v) = ($1,$2);
        # Selectively assign to typeglobs.
        *{$that_pack.'::'.$v} = $t eq '@' && \@{$v} || $t eq '%' && \%
+{$v} || 
                                $t eq '&' && \&{$v} || $t eq '$' && \$
+{$v} || 
                                $t eq '*' && \*{$v};
    }

}


package main;

other::import();


foreach (sort keys %main::){
    print __PACKAGE__,"\:\:$_ = $main::{$_}\n";
}
warn "\$VAR is $VAR";
warn join(", ",@array);
[download]