+++ /dev/null
-#!perl -T
-
-use strict;
-use warnings;
-
-use Variable::Temp 'set_temp';
-
-use Test::More tests => 13;
-
-our $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;
- {
- local $x = 6;
- is $x, 6;
- }
- is $x, 3;
- {
- local $x = 7;
- set_temp $x => 8;
- is $x, 8;
- }
- is $x, 3;
- {
- set_temp $x => 9;
- local $x = 10;
- is $x, 10;
- }
- is $x, 3;
-}
-is $x, 1;