##
use Modern::Perl;
my $var1 = context('a');
my ($var2) = context('b');
say for $var1, $var2;
context($var2);
sub context
{
my $c = (defined wantarray) ?
(wantarray ? 'list' : 'scalar')
: 'void';
say '(', $_[0], '): is in ', $c, ' context';
return wantarray ? @_ : $_[0];
}
##
##
14:04 >perl 488_SoPW.pl
(a): is in scalar context
(b): is in list context
a
b
(b): is in void context
14:08 >