8 use Variable::Magic qw/wizard cast dispell MGf_LOCAL/;
11 plan skip_all => "this perl doesn't handle local magic";
17 my $wiz = wizard 'local' => sub { ++$c };
18 ok($c == 0, 'local : create wizard');
20 my $n = int rand 1000;
24 ok($c == 0, 'local : cast');
28 ok($c == 1, 'local : localize casted variable');
32 ok($c == 1, 'local : dispell');
36 ok($c == 1, 'local : localize dispelled variable');