Current File : //proc/self/root/kunden/usr/share/doc/perl-B-Hooks-EndOfScope/t/02-localise.t

use strict;
use warnings;

use Test::More 0.88;

BEGIN {
  plan skip_all => "User-requested %^H local()ization works only on perl 5.8.0+"
    if "$]" < 5.008;
}


use B::Hooks::EndOfScope;

{
    my $fired;

    {
        BEGIN { on_scope_end { $fired++ } }

        BEGIN { ok(!$fired) }

        BEGIN { local %^H }

        BEGIN { ok(!$fired) }
    }

    BEGIN { ok($fired) }
}

{
    my $fired;

    {
        BEGIN { on_scope_end { $fired++ } }
        BEGIN { ok(!$fired) }

        BEGIN {
            local %^H;

            my $fired2;
            {
                BEGIN { on_scope_end { $fired2++ } }
                BEGIN { ok(!$fired2) }
                BEGIN { local %^H }
                BEGIN { ok(!$fired2) }
            }
            BEGIN { ok($fired2) }
        }

        BEGIN { ok(!$fired) }
    }

    BEGIN { ok($fired) }
}

done_testing;