Alt-Module-Runtime-ButEUMM

 view release on metacpan or  search on metacpan

t/rm.t  view on Meta::CPAN

54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
        $^H{"Module::Runtime/test_a"} = 1;
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, undef;
        require_module("t::Hints");
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, undef;
        t::Hints->import;
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, 1;
        eval q{
                BEGIN { $^H |= 0x20000; $^H{foo} = 1; }
                BEGIN { is $^H{foo}, 1; }
                main::test_runtime_hint_hash("foo", 1);
                BEGIN { require_module("Math::BigInt"); }
                BEGIN { is $^H{foo}, 1; }
                main::test_runtime_hint_hash("foo", 1);
                1;
        }; die $@ unless $@ eq "";
}
 
# broken module is visibly broken when re-required

t/um.t  view on Meta::CPAN

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
        $^H{"Module::Runtime/test_a"} = 1;
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, undef;
        use_module("t::Hints");
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, undef;
        t::Hints->import;
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, 1;
        eval q{
                BEGIN { $^H |= 0x20000; $^H{foo} = 1; }
                BEGIN { is $^H{foo}, 1; }
                main::test_runtime_hint_hash("foo", 1);
                BEGIN { use_module("Math::BigInt"); }
                BEGIN { is $^H{foo}, 1; }
                main::test_runtime_hint_hash("foo", 1);
                1;
        }; die $@ unless $@ eq "";
}
 
# broken module is visibly broken when re-required

t/upo.t  view on Meta::CPAN

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
        $^H{"Module::Runtime/test_a"} = 1;
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, undef;
        use_package_optimistically("t::Hints");
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, undef;
        t::Hints->import;
        is $^H{"Module::Runtime/test_a"}, 1;
        is $^H{"Module::Runtime/test_b"}, 1;
        eval q{
                BEGIN { $^H |= 0x20000; $^H{foo} = 1; }
                BEGIN { is $^H{foo}, 1; }
                main::test_runtime_hint_hash("foo", 1);
                BEGIN { use_package_optimistically("Math::BigInt"); }
                BEGIN { is $^H{foo}, 1; }
                main::test_runtime_hint_hash("foo", 1);
                1;
        }; die $@ unless $@ eq "";
}
 
# broken module is visibly broken when re-required

 view all matches for this distribution
 view release on metacpan -  search on metacpan