+++ /dev/null
-#!perl -T
-
-use strict;
-use warnings;
-
-use Variable::Temp 'set_temp';
-
-use Test::More tests => 7;
-
-my $x = 1;
-is $x, 1;
-{
- set_temp $x => 2;
- is $x, 2;
- $x = 3;
- is $x, 3;
- {
- set_temp $x => 4;
- is $x, 4;
- set_temp $x => 5;
- is $x, 5;
- }
- is $x, 3;
-}
-is $x, 1;