Alt-Module-Runtime-ButEUMM
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
$^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
$^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
$^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 distributionview release on metacpan - search on metacpan
( run in 0.609 second using v1.00-cache-2.02-grep-82fe00e-cpan-2ea8abbae53 )