Re^2: Is this really random?

in reply to Re: Is this really random?
in thread Is this really random?

Overriding prototypes is not all it does!

sub foo { print "Called foo(" . join(',', @_) . ")\n"; }
sub bar { 
    print "Called bar(" . join(',', @_) . ")\n"; 
    print "foo(); : ";
    foo();
    print "&foo; : ";
    &foo;
}
bar(1,2,3);
[download]

Jenda
Enoch was right!
Enjoy the last years of Rome.

Comment on Re^2: Is this really random? Download Code

Replies are listed 'Best First'.
Re^3: Is this really random? by tobyink (Canon) on Nov 22, 2012 at 15:47 UTC
Also don't forget `&foo()` which overrides prototypes without the effect of passing along the caller's `@_`. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom