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