3 use Test::More tests => 7;
5 use Variable::Magic qw/wizard cast/;
8 my $wiz = wizard clear => sub { ++$c };
9 ok($c == 0, 'clear : create wizard');
14 ok($c == 0, 'clear : cast array');
17 ok($c == 1, 'clear : clear array');
18 ok(!defined $a[0], 'clear : clear array correctly');
20 my %h = (foo => 1, bar => 2);
23 ok($c == 1, 'clear : cast hash');
26 ok($c == 2, 'clear : clear hash');
27 ok(!(keys %h), 'clear : clear hash correctly');