package ibase;

BEGIN {
    require base;

    *{"_import"} = \&{"base::import"};
    for (qw( )) {
        *{"$_"} = \&{"base::$_"};
    }
}

our $ExportLevel = 0;

sub import
{
    my $self = shift;

    my $callpkg = caller($ExportLevel);

    eval {
        $self->_import(@_);
    };
    for my $key (keys %INC) {
        if ($key =~ m|Data/Dumper.pm|) {
            *{"$callpkg\::Dumper"} = \&{"Data::Dumper::Dumper"};
        }
    }
}
1;