Select Code to Download

reduce { print         wantarray ? "array\n"  :
               defined wantarray ? "scalar\n" : "void\n" } 1 .. 2;

# prints "void"

my $result = reduce { print "eval: $a + $b\n"; 
                      eval "$a + $b" }
...
# eval: return 4 + 3
# eval: return 4 + 4
# result=4