use strict;
use warnings;
+use blib;
+
package Scope;
-use Scope::Upper qw/reap localize localize_elem localize_delete :words/;
+use Scope::Upper qw<reap localize localize_elem localize_delete :words>;
sub new {
my ($class, $name) = @_;
{
Scope->private;
- eval { require Cwd };
+ eval { delete $INC{"Cwd.pm"}; require Cwd }; # blib loads Cwd
print $@; # prints "Can't locate Cwd.pm in @INC (@INC contains:) at..."
}