=head1 VERSION
-Version 0.01
+Version 0.03
=cut
our $VERSION;
BEGIN {
- $VERSION = '0.01';
+ $VERSION = '0.03';
}
=head1 SYNOPSIS
} else { # $type eq 'SCALAR' || $type eq 'REF'
my $save = $$var;
&Scope::Upper::reap(sub { $$var = $save } => $target);
- $ret = $var;
+ $$var = undef;
+ $ret = $var;
}
$$ret;
}