wantarray Tutorial

wantarray.pl

#called under void context
testContextCall();
#called under scalar context
my $test = testContextCall();
#called under list context
my @test = testContextCall(); 
 
print "testContextCall() under scalar contex : $test\n";
print "testContextCall() under array contex : @test\n";
 
sub testContextCall {
  if (wantarray()) {
     return qw(1 2 3);
   }
   else {
     return 1;
   } 
}