Re^2: parm#4 from caller == !"eval" ?

The documentation says:

$hasargs is true if a new instance of @_ was set up for the frame.

And that's how it works:

sub x1 { @_ = 'a'; &x2 }
sub x2 { my ($c) = @_; say $c, (caller 0)[4] }
x2('b');  # b1
x1();     # a
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^2: parm#4 from caller == !"eval" ? Select or Download Code

Replies are listed 'Best First'.
Re^3: parm#4 from caller == !"eval" ? by LanX (Saint) on Sep 12, 2017 at 23:13 UTC
Addendum to explain what the `&x2` call does > Subroutines may be called recursively. If a subroutine is called using the & form, the argument list is optional, and if omitted, no @_ array is set up for the subroutine: the @_ array at the time of the call is visible to subroutine instead. This is an efficiency mechanism that new users may wish to avoid. Source `perlsub` Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply] [d/l]
Re^4: parm#4 from caller == !"eval" ? by perl-diddler (Chaplain) on Sep 13, 2017 at 22:38 UTC
To you and choroba, thanks for the example(s). I completely forgot about the '&' case. Thanks!	[reply]