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;