Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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

by BrowserUk (Pope)
on Jul 30, 2013 at 13:45 UTC ( #1047030=note: print w/ replies, xml ) Need Help??

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

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

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.
Comment on Re: Eliminating "used only once" warnings from List::Util::reduce
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1047030]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2016-05-30 18:35 GMT
Find Nodes?
    Voting Booth?