Current File : //kunden/usr/share/doc/perl-B-Hooks-EndOfScope/t/12-direct_pp.t

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

use B::Hooks::EndOfScope::PP;

BEGIN {
    ok(exists &on_scope_end, 'on_scope_end imported');
    is(prototype('on_scope_end'), '&', '.. and has the right prototype');
}

our $i;

sub foo {
    BEGIN {
        on_scope_end { $i = 42 };
    };

    is($i, 42, 'value still set at runtime');
}

BEGIN {
    is($i, 42, 'value set at compiletime')
}

foo();

done_testing;