Lines Matching refs:CORE
3 # This script tests the inlining and prototype of CORE:: subs. Any generic
18 __DATA__ __END__ ADJUST AUTOLOAD BEGIN UNITCHECK CORE DESTROY END INIT CHECK
52 ok !defined &{"CORE::$word"}, "no CORE::$word";
57 ok defined &{"CORE::$word"}, "defined &{'CORE::$word'}";
59 my $proto = prototype "CORE::$word";
60 *{"my$word"} = \&{"CORE::$word"};
61 is prototype \&{"my$word"}, $proto, "prototype of &CORE::$word";
63 CORE::state $protochar = qr/([^\\]|\\(?:[^[]|\[[^]]+\]))/;
85 $core = op_list(eval $hpcode =~ s/my/CORE::/r or die);
87 is $my, $core, "precedence of CORE::$word without parens";
113 "inlined CORE::$word with too many args"
138 sub { () = (CORE::$word$full_args) }";
139 my $my_code = $core_code =~ s/CORE::$word/my$word/r;
142 is $my, $core, "inlinability of CORE::$word $preposition parens $desc_suffix";
148 sub foo { goto &CORE::abs }
154 is runperl(prog => 'print CORE->lc, qq-\n-'), "core\n",
156 is runperl(prog => '@ISA=CORE; print main->uc, qq-\n-'), "MAIN\n",
161 like runperl(prog => '$foo/; \&CORE::lc', stderr => 1),
162 qr/^syntax error/, "RT #117607: \\&CORE::foo doesn't crash in error context";
166 ok eval { *CORE::exit = \42 },
167 '[rt.cpan.org #74289] *CORE::foo is not accidentally made read-only';
172 @UNIVERSAL::ISA = CORE;
179 CORE::__END__