3 use Test::More tests => 4;
5 use Variable::Magic qw/wizard cast/;
8 my $wiz = wizard free => sub { ++$c };
9 ok($c == 0, 'free : create wizard');
11 my $n = int rand 1000;
17 ok($c == 0, 'free : cast');
19 ok($c == 1, 'free : deletion at the end of the scope');
23 ok($c == 1, 'free : explicit deletion with undef()');