Re: Maintaining context of the caller

How's about: wantarray ? &$c : scalar(&$c)

  DB<2> $c = sub { my @a = (4..6) }

  DB<3> p scalar sub { @r = (wantarray ? &$c : scalar(&$c)); @r }->()
1
  DB<4> p sub { @r = (wantarray ? &$c : scalar(&$c)); @r }->()
456
  DB<5> x scalar sub { @r = (wantarray ? &$c : scalar(&$c)); \@r }->()
0  ARRAY(0x844e22c)
   0  3
  DB<6> x sub { @r = (wantarray ? &$c : scalar(&$c)); \@r }->()
0  ARRAY(0x844e22c)
   0  4
   1  5
   2  6
[download]

Comment on Re: Maintaining context of the caller Download Code

Replies are listed 'Best First'.
Re^2: Maintaining context of the caller by revdiablo (Prior) on Jul 05, 2005 at 15:59 UTC
Perhaps I'm missing something subtle in your post, but how is this different from ikegami's reply?	[reply]