Make him do it himself? No way, not at Perlmonks! (-:

package Exporter::End;
sub import {
    my @packages = @_;
    shift @packages;
    @packages = (caller)[0] unless defined @packages;
    foreach my $orig (@packages) {
        my ($end) = $orig =~ /(\w+)$/;
        *{"${orig}::import"} = sub {
            my $pkg = (caller)[0];
            *{"${pkg}::${end}::"} = *{"${orig}::"};
       }
    }
}

1;
[download]

And then use it like this:

package Foo::Bar::Baz;
use Exporter::End;
sub x {print 1};

# ...

package main;
use Foo::Bar::Baz;
Baz::x(); # same as main::Baz::x();
[download]

Or like this:

package Foo::Bar::Baz;
sub x {print 1};

# ...

package main;
use Exporter::End qw(Foo::Bar::Baz);
Baz::x(); # same as main::Baz::x();
[download]

++, but I'm fairly certian that you want %s there, or even better *s. OTOH, using a * would kill $main::Baz as well as making an alias for the package. (* is better then % because it aliases, rather then coppies, the symbol tables.)

but I'm fairly certian that you want %s there, or even better *s

Assigning with %Foo::Bar::Baz:: will copy the various globs in the symbol table, which should suffice, copying the glob is more efficient and explicitly accessing the glob would do the same job e.g

## copy every glob
%main::Baz::     = %Foo::Bar::Baz::;

## copy the Baz:: glob
$main::{"Baz::"} = $Foo::Bar::{"Baz::"};

## explicitly reference the glob
*main::Baz::     = *Foo::Bar::Baz::
[download]

They all achieve the same goal (roughly), whereas the first example does a complete copy of the symbol table, the second two just create a reference. So one of the second two would be the desired behaviour in this case.
HTH

_________
broquaint

D'oh!