exp/map_context.pl

   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" ;