6 use Test::More tests => 11;
8 use Variable::Magic qw/wizard cast getdata/;
13 package Variable::Magic::TestDestructor;
15 sub new { bless { }, shift }
17 sub DESTROY { ++$::destroyed }
20 sub D () { 'Variable::Magic::TestDestructor' }
25 my $w = wizard data => sub { $_[1] };
45 my $w = wizard data => sub { $_[1] };
57 $copy = getdata $x, $w;
76 my $w = wizard set => $obj;