]> git.vpit.fr Git - perl/modules/Variable-Magic.git/blob - t/lib/Variable/Magic/TestScopeEnd.pm
Set PERL_DESTRUCT_LEVEL through the environment variable on debugging perls
[perl/modules/Variable-Magic.git] / t / lib / Variable / Magic / TestScopeEnd.pm
1 package Variable::Magic::TestScopeEnd;
2
3 use Test::More;
4
5 use Variable::Magic qw<wizard cast>;
6
7 my $wiz;
8
9 BEGIN {
10  $wiz = wizard
11   data => sub { $_[1] },
12   free => sub { $_[1]->(); () };
13 }
14
15 sub hook (&) {
16  $^H |= 0x020000;
17  cast %^H, $wiz, shift;
18 }
19
20 BEGIN {
21  hook { pass 'in hints hash destructor' };
22  die 'turnip';
23 }
24
25 1;