wantarrayは伝播する

タイトル通り。
というか今まで意識してなかったけど、試したらそうだったのでメモ。

#!/usr/bin/env perl
use strict;
use warnings;

sub a { return b() }
sub b { return c() }
sub c { return d() }
sub d { return e() }

sub e { return wantarray? 1..10 : 11 }

my @array = a();
my $scalar = a();

print "Return array [@array]\n";
print "Retuen scalar [$scalar]\n";

Return array [1 2 3 4 5 6 7 8 9 10]
Retuen scalar [11]