use strict;
use warnings;
-use Variable::Temp 'temp';
+use Variable::Temp 'set_temp';
use Test::More tests => 13;
our $x = 1;
is $x, 1;
{
- temp $x = 2;
+ set_temp $x => 2;
is $x, 2;
$x = 3;
is $x, 3;
{
- temp $x = 4;
+ set_temp $x => 4;
is $x, 4;
- temp $x = 5;
+ set_temp $x => 5;
is $x, 5;
}
is $x, 3;
is $x, 3;
{
local $x = 7;
- temp $x = 8;
+ set_temp $x => 8;
is $x, 8;
}
is $x, 3;
{
- temp $x = 9;
+ set_temp $x => 9;
local $x = 10;
is $x, 10;
}