Re: Eliminating "used only once" warnings from List::Util::reduce

[BrowserUk]

Just a thought.

If you tweak List::Util so:

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 
+);

Then you can import $a & $b so:

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

C:\test\primes