# untested, written in browser
package Exporter::PrefixWrapper;
use Carp;

sub import {
    my (undef, $module, $prefix, @symbols) = @_;
    my $caller = (caller)[0];
    eval "package $caller\::__FOO; use $module \@symbols;";
    croak $@ if $@;
    for my $symbol (keys %{ "$caller\::__FOO::" }) {
        for my $type (qw/CODE SCALAR ARRAY HASH GLOB/) {
            next if not *{ "$caller\::__FOO::$symbol" }{$type};
            *{ "$caller\::$prefix$symbol" } =
                *{ "$caller\::__FOO::$symbol" }{$type};
        }
    }
}

1;

=head1 SYNOPSIS

use Exporter::PrefixWrapper LWP::Simple => 'lwp_', qw(get $ua);
$lwp_ua->agent('FooBar/0.01');
my $page = lwp_get "http://juerd.nl/"

=cut