Is the following behaviour documented, explained, or implied anywhere in the documentation?
use strict;
use Carp qw(carp);
sub TIESCALAR { carp $/; bless \my $var => shift; }
sub FETCH { carp $/; ${$_[0]} }
sub STORE { carp $/; ${$_[0]} = $_[1]}
$_ = 'one';
{
my $foobar;
local $_;
tie $_ => 'main', 'two';
}
# when above BLOCK is exited, $_ remains tied, and is reset to 'one' v
+ia a STORE
print "\ntied() of \$_ is ", tied $_, $/;