1package Variable::Magic::TestScopeEnd;
2
3use Test::More;
4
5use Variable::Magic qw/wizard cast/;
6
7my $wiz;
8
9BEGIN {
10 $wiz = wizard
11  data => sub { $_[1] },
12  free => sub { $_[1]->(); () };
13}
14
15sub hook (&) {
16 $^H |= 0x020000;
17 cast %^H, $wiz, shift;
18}
19
20BEGIN {
21 hook { pass 'in hints hash destructor' };
22 die 'turnip';
23}
24
251;
26