1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use warnings;
use strict;
use Test::More tests => 4;
BEGIN { unshift @INC, "./t/lib"; }
our $onset_test;
my $onset_unfixed;
$^H |= 0x20000 if "$]" < 5.009004;
$^H{"Lexical::SealRequireHints/test"} = 1;
$onset_test = "";
eval q{ require "t/onset.pl"; 1 } or die $@;
delete $INC{"t/onset.pl"};
$onset_unfixed = $onset_test;
require_ok "Lexical::SealRequireHints";
$onset_test = "";
eval q{ require "t/onset.pl"; 1 } or die $@;
delete $INC{"t/onset.pl"};
is $onset_test, $onset_unfixed;
foreach (0..1) {
Lexical::SealRequireHints->import;
$onset_test = "";
eval q{ require "t/onset.pl"; 1 } or die $@;
delete $INC{"t/onset.pl"};
is $onset_test, "undef";
}
1;
|
