ok(defined $w, 'wizard with uvar is defined');
is(ref $w, 'SCALAR', 'wizard with uvar is a scalar ref');
my $res = eval { cast %h, $w };
ok(defined $w, 'wizard with uvar is defined');
is(ref $w, 'SCALAR', 'wizard with uvar is a scalar ref');
my $res = eval { cast %h, $w };