X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FVariable%2FMagic%2FTestDieRequired.pm;fp=t%2Flib%2FVariable%2FMagic%2FTestDieRequired.pm;h=50792b140d8f726e8146faeba7f79facca80aa93;hb=fbcb2462798d2fa931a5c97ebf0cec73177dce23;hp=0000000000000000000000000000000000000000;hpb=fd2b4b28517f7f12044530f6c3ceca07181fba70;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/lib/Variable/Magic/TestDieRequired.pm b/t/lib/Variable/Magic/TestDieRequired.pm
new file mode 100644
index 0000000..50792b1
--- /dev/null
+++ b/t/lib/Variable/Magic/TestDieRequired.pm
@@ -0,0 +1,25 @@
+package Variable::Magic::TestDieRequired;
+
+use Test::More;
+
+use Variable::Magic qw/wizard cast/;
+
+my $wiz;
+
+BEGIN {
+ $wiz = wizard
+  data => sub { $_[1] },
+  free => sub { $_[1]->(); () };
+}
+
+sub hook (&) {
+ $^H |= 0x020000;
+ cast %^H, $wiz, shift;
+}
+
+BEGIN {
+ hook { pass 'in Variable::Magic::TestRequired hook' };
+ die 'turnip';
+}
+
+1;