6 use Test::More tests => 7;
8 use Variable::Magic qw/wizard cast/;
11 my $wiz = wizard clear => sub { ++$c };
12 is($c, 0, 'clear : create wizard');
17 is($c, 0, 'clear : cast array');
20 is($c, 1, 'clear : clear array');
21 ok(!defined $a[0], 'clear : clear array correctly');
23 my %h = (foo => 1, bar => 2);
26 is($c, 1, 'clear : cast hash');
29 is($c, 2, 'clear : clear hash');
30 ok(!(keys %h), 'clear : clear hash correctly');