8 use Variable::Magic qw/cast MGf_LOCAL/;
11 plan tests => 2 * 3 + 1 + 1;
13 plan skip_all => 'No local magic for this perl';
17 use Variable::Magic::TestWatcher;
19 my $wiz = init_watcher 'local', 'local';
21 our $a = int rand 1000;
23 my $res = watch { cast $a, $wiz } { }, 'cast';
24 ok $res, 'local: cast succeeded';
26 watch { local $a } { local => 1 }, 'localized';