http://www.perlmonks.org?node_id=1047030


in reply to Eliminating "used only once" warnings from List::Util::reduce

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

[download]

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

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
C:\test\primes

In Section Seekers of Perl Wisdom