Mini Shell
Mini Shell
| Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/BSON-v1.10.2/t/pvtlib/ |
| Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/BSON-v1.10.2/t/pvtlib/CleanEnv.pm |
use 5.010001;
use strict;
use warnings;
package CleanEnv;
# Tiny equivalent of Devel::Hide to disable BSON::XS
use lib map {
my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
} qw{BSON/XS.pm};
# Keep environment from interfering with tests
$ENV{PERL_BSON_BACKEND} = "";
1;