Hook::LexWrap and core functions

Alien has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Hook::LexWrap and core functions by ikegami (Patriarch) on Sep 19, 2008 at 22:36 UTC
Overriding Built-in Functions First make sure you can override it `>perl -wle"print( prototype( 'CORE::chomp' ) )" Use of uninitialized value in print at -e line 1. <- Can't >perl -wle"print( prototype( 'CORE::push' ) )" \@@ <- Can` [download] Then go ahead and do it: `BEGIN { *CORE::GLOBAL::push = sub(\@@) { my $array = shift(@_); print("Pushing\n"); return CORE::push(@$array, @_); }; }` [download]	[reply] [d/l] [select]
Re^2: Hook::LexWrap and core functions by Alien (Monk) on Sep 19, 2008 at 22:43 UTC
Thank you for your reply ! But,is it possible to wrap it using Hook::LexWrap ? I get a "Can't wrap non-existent subroutine CORE::push"	[reply]
Re^3: Hook::LexWrap and core functions by ikegami (Patriarch) on Sep 19, 2008 at 22:48 UTC
Nope, and the error accurately describes the reason you can't. `push` is not a sub, so you can't get its address, so it can't be wrapped. You might be able to wrap `*CORE::GLOBAL::push` once you create it.	[reply] [d/l] [select]
Re^4: Hook::LexWrap and core functions by Alien (Monk) on Sep 19, 2008 at 23:13 UTC
Re^2: Hook::LexWrap and core functions by blazar (Canon) on Sep 21, 2008 at 10:58 UTC
Now that I think of it, prototypes are already somewhat deprecated, and of course we're "all" (well, I for one, and I bet most too, but I'm sure someone will disagree instead...) waiting for Perl 6 and its `multi`'s with real signatures, OTOH it would be nice and IMHO not terribly sci-fi-like if prototypes allowed alternation (which I sort of consistently, I hope, represent hereafter with a pipe `\|` character) so that e.g. chomp could have a prototype of: `@\|_` [download] `--` ~~If you can't understand the incipit, then please check the IPB Campaign.~~	[reply] [d/l] [select]