t/01-eval.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use B::Hooks::EndOfScope::WithFallback;
   6
   7 our $called;
   8
   9 sub foo {
  10     BEGIN { on_scope_end { $called = 1 } }
  11
  12     # uncomment this to make the test pass
  13     eval '42';
  14 }
  15
  16 BEGIN {
  17     ok($called, 'callback invoked');
  18 }
  19
  20 done_testing;