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

use strict;
use warnings;
use Test::More tests => 1;

use B::Hooks::EndOfScope;

our $called;

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

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

BEGIN {
    ok($called, 'callback invoked');
}
Commit	Line	Data
58b07c77	1	use strict;
	2	use warnings;
	3	use Test::More tests => 1;
	4
	5	use B::Hooks::EndOfScope;
	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	}