[p5sagit/B-Hooks-EndOfScope-WithFallback.git] / t / 01-eval.t

use strict;
use warnings;
use Test::More;

use B::Hooks::EndOfScope::WithFallback;

our $called;

sub foo {
    BEGIN { on_scope_end { $called = 1 } }

    # uncomment this to make the test pass
    eval '42';
}

BEGIN {
    ok($called, 'callback invoked');
}

done_testing;
Commit	Line	Data
58b07c77	1	use strict;
58b07c77	2	use warnings;
4befcbc3	3	use Test::More;
58b07c77	4
4befcbc3	5	use B::Hooks::EndOfScope::WithFallback;
58b07c77	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	}
4befcbc3	19
4befcbc3	20	done_testing;