3 use Test::More tests => 6;
5 use Variable::Magic qw/wizard cast/;
9 my $wiz = wizard len => sub { ++$c; return $n };
10 ok($c == 0, 'len : create wizard');
15 ok($c == 0, 'len : cast');
18 ok($c == 1, 'len : get length');
19 ok($b == $n, 'len : get length correctly');
23 ok($c == 2, 'len : get length 0');
24 ok($b == 0, 'len : get length 0 correctly');