use strict;
use warnings;
-use Variable::Temp 'temp';
+use Variable::Temp 'set_temp';
-use Test::More tests => 14;
+use Test::More;
use lib 't/lib';
use VPIT::TestHelpers;
load_or_skip_all('Variable::Magic', '0.55', undef);
+plan tests => 14;
+
my $replaced = 0;
my $freed = 0;
is $freed, 0;
{
- temp $y = 2;
+ set_temp $y => 2;
is $y, 2;
is $replaced, 1;
is $freed, 0;