package Repl;
use warnings;
use strict;

BEGIN { 
    use Orig;
    use Exporter;

    use vars qw( @ISA  @EXPORT);
    @ISA = qq(Exporter);

    for ( @Orig::EXPORT) {
        no strict 'refs';
        *{$_} = \&{"Orig::". $_};
    }
    @EXPORT = ( qw( repl ), @Orig::EXPORT );
}

no warnings 'redefine';
sub repl { print "&Repl::repl runs $/" }
1;