=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;
}
=head1 COPYRIGHT & LICENSE
-Copyright 2015 Vincent Pit, all rights reserved.
+Copyright 2015,2017 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.