Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Redefining Imported Subs: of scope and no

by 7stud (Deacon)
on Feb 09, 2013 at 05:50 UTC ( #1017931=note: print w/replies, xml ) Need Help??

in reply to Redefining Imported Subs: of scope and no

Let's try something new; how about manually deleting/redefining the subroutine in the symbol table?

use feature 'say'; undef &say; *say = \&not_say; say 'test'; sub not_say { print 'not saying'; }

Maybe I'm getting my namespaces all mixed up because that doesn't seem to redefine the sub at all.

The confounding thing is that this works:

use strict; use warnings; use 5.012; #Rule: sub names are entered into the symbol table. sub abc { print "abc\n"; } sub xyz { print "xyz\n"; } local *abc; #gets rid of 'redefined main::abc' warning' *abc = \&xyz; abc; --output:-- xyz

But this doesn't work:

use strict; use warnings; use 5.012; sub xyz { print "xyz\n"; } local *say; *say = \&xyz; say 'hello'; --output:-- hello

Nor does this:

use strict; use warnings; use 5.012; use subs qw( say ); #Supposedly overrides a built in my $verbose = 1; sub say { if ($verbose) { print shift, " world\n"; } } say 'hello'; --output:-- hello

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1017931]
[marioroy]: Wow. It's cool seeing Github coments "Update, Create Wild_hairs, Create alternate- PurpleOnGreen..., Then a location, Create Aleenia. Amazing, really. Thank you for sharing.
Discipulus when naming is clear and you know how to arrange the data, then coding it is a mere writing work
[Lady_Aleena]: marioroy, welcome to my insanity. 8)

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2017-05-29 09:12 GMT
Find Nodes?
    Voting Booth?