Lines Matching refs:CORE
7 require Config; # load these before we mess with *CORE::GLOBAL::require
14 # This file tries to test builtin override using CORE::GLOBAL
23 BEGIN { *CORE::GLOBAL::time = sub () { $t; } }
31 BEGIN { *CORE::GLOBAL::require = sub { $r = shift; 1; } }
56 local *CORE::GLOBAL::require = sub { push @r, shift; 1; };
67 # localizing *CORE::GLOBAL::foo should revert to finding CORE::foo
69 local(*CORE::GLOBAL::require);
80 BEGIN { *CORE::GLOBAL::readline = sub (;*) { ++$r }; }
102 BEGIN { *CORE::GLOBAL::readpipe = sub ($) { "$_[0] " . --$r }; }
120 BEGIN { *OverridenWarn::warn = sub { CORE::warn "@_ overriden"; }; }
136 local *CORE::GLOBAL::require = sub {
137 CORE::require($_[0]);
151 is runperl(prog => 'sub CORE::GLOBAL::do; do file; print qq-ok\n-'),
153 'no crash with CORE::GLOBAL::do stub';
154 is runperl(prog => 'sub CORE::GLOBAL::glob; glob; print qq-ok\n-'),
156 'no crash with CORE::GLOBAL::glob stub';
157 is runperl(prog => 'sub CORE::GLOBAL::require; require re; print qq-o\n-'),
159 'no crash with CORE::GLOBAL::require stub';
162 .'BEGIN { *{q|CORE::GLOBAL::readpipe|} = \&{q|foo|};1}'
166 '`` does not ignore &CORE::GLOBAL::readpipe aliased to a constant';
168 .'BEGIN { *{q|CORE::GLOBAL::readline|} = \&{q|foo|};1}'
172 '<> does not ignore &CORE::GLOBAL::readline aliased to a constant';
175 .'BEGIN { *{q|CORE::GLOBAL::time|} = \&{q|t|};1}'