- wizard get => sub { ++$c },
- data => sub { $_[1] + $tid },
- free => sub { ++$destroyed },
- sig => $sig;
+ wizard data => sub { $_[1] + $tid },
+ sig => $sig,
+ get => sub { ++$c; 0 },
+ set => sub {
+ my $op = $_[-1];
+ if ($op_info == VMG_OP_INFO_OBJECT) {
+ is_deeply { class => ref($op), name => $op->name },
+ { class => 'B::BINOP', name => 'sassign' },
+ "op object in thread $tid is correct";
+ } else {
+ is $op, 'sassign', "op name in thread $tid is correct";
+ }
+ 0
+ },
+ free => sub { lock $destroyed; ++$destroyed; 0 },
+ op_info => $op_info