Select Code to Download

Select or download this

use warnings;
use List::Util;
my $reduced = List::Util::reduce { $a + $b } 1, 2, 3, 4;
print "$reduced\n";

Select or download this

Name "main::a" used only once: possible typo at mytest.pl line 3.
Name "main::b" used only once: possible typo at mytest.pl line 3.
10

Select or download this

use warnings;
my @sorted = sort { $a <=> $b } 1, 2, 3, 4;
print "@sorted\n";

Select or download this
```
1 2 3 4
```

Select or download this

STATIC void
S_simplify_sort(pTHX_ OP *o)
...
    GvMULTI_on(gv_fetchpvs("a", GV_ADD|GV_NOTQUAL, SVt_PV));
    GvMULTI_on(gv_fetchpvs("b", GV_ADD|GV_NOTQUAL, SVt_PV));
    ...

Select or download this

void
reduce(block,...)
...
    agv = gv_fetchpv("a", GV_ADD, SVt_PV);
    bgv = gv_fetchpv("b", GV_ADD, SVt_PV);
    ...

Select or download this

agv = gv_fetchpv("a", GV_ADD, SVt_PV);
GvMULTI_on(agv); /* No apparent effect. */

agv = gv_fetchpv("a", GV_ADD|GV_ADDMULTI, SVt_PV); /* Nope */
agv = gv_fetchpv("a", GV_ADDMULTI, SVt_PV); /* *sigh* No. */