is $x, 1, 'uvar: fetch directly with also non uvar magic correctly';
$wiz2 = wizard fetch => sub { 0 };
my %h2 = (a => 37, b => 2, c => 3);
cast %h2, $wiz2;
is $x, 1, 'uvar: fetch directly with also non uvar magic correctly';
$wiz2 = wizard fetch => sub { 0 };
my %h2 = (a => 37, b => 2, c => 3);
cast %h2, $wiz2;