- X::set_tag('pie');
- # $x is now a X object, and @ARGV has one element less
- warn 'what'; # warns "pie: what at ..."
- warn "\@ARGV contains [@ARGV]";
-} # "pie: done" is printed
+ Scope->new("top"); # initializes $UserLand::tag
+
+ {
+ Scope->catch;
+ my $one = 1 + undef; # prints "top: Use of uninitialized value..."
+
+ {
+ Scope->private;
+ eval { delete $INC{"Cwd.pm"}; require Cwd }; # blib loads Cwd
+ print $@; # prints "Can't locate Cwd.pm in @INC (@INC contains:) at..."
+ }
+
+ require Cwd; # loads Cwd.pm
+ }
+
+} # prints "top: done"