Select Code to Download

use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY $a
+ $b );
require Exporter;

@ISA        = qw(Exporter);
@EXPORT_OK  = qw(first min max minstr maxstr reduce sum shuffle $a $b 
+);

C:\test\primes>perl -Mstrict -MList::Util=reduce,$a,$b -wE" say reduce
+{ $a +$b } 1,2,3"
6
...
C:\test\primes>perl -Mstrict -wE"package fred; use List::Util qw[ redu
+ce $a $b ]; say reduce{ $a +$b } 1,2,3"
6