[urisagit/Sort-Maker.git] / exp / map_context.pl

#!/usr/local/bin/perl -w

use strict ;

sub bar {
	print "ARRAY\n" if wantarray ;
	my @a = ( qw( a d g ) ) ;

	return @a ;
}

my ($x) ||= map { bar() } 1 ;

print "$x\n" ;
Commit	Line	Data
7468c584	1	#!/usr/local/bin/perl -w
	2
	3	use strict ;
	4
	5	sub bar {
	6	print "ARRAY\n" if wantarray ;
	7	my @a = ( qw( a d g ) ) ;
	8
	9	return @a ;
	10	}
	11
	12	my ($x) \|\|= map { bar() } 1 ;
	13
	14	print "$x\n" ;