List :: MoreUtilsが$ aと$ bの使用について一度だけ警告するのを防ぐにはどうしたらいいですか？

Question

List::MoreUtilsモジュールは、pairwise機能を持つBLOCKを提供するときに、変数$aと$bを使用することを示します。たとえば、次のように

use strict; 
use warnings; 
use List::MoreUtils qw'pairwise'; 

my @x = (1 .. 5); 
my @y = (11 .. 15); 
my @sums = pairwise { $a + $b } @x, @y; 

しかし、私はそれを行うとき、私はこのような警告が表示されます：

 
Name "main::b" used only once: possible typo at try.pl line 7. 
Name "main::a" used only once: possible typo at try.pl line 7. 

この問題に対処するためのエレガントな方法はありますか？

更新：解決される問題：

のperl v5.19.6ためと超えanswer by Etherを参照してください。

Answer 1

あなたが優雅と考えるものによって異なります。

no warnings qw(once); 
our ($a, $b); 

これら2つのうちの1つで十分です。あなたはかなり簡単に範囲を制限することもできます。

my @sums = pairwise { no warnings qw(once); $a + $b } @x, @y; 
my @sums = pairwise { our $a + our $b } @x, @y; 

明示的にパッケージを指定すると、警告も抑制されます。あなたがmain、

my @sums = pairwise { $::a + $::b } @x, @y; 

Answer 2

私が書いている同様のモジュールで同じ問題があります。 （もちろん、二回$aと$bを使用する関数を使用するよりも、他の）私が見つけた唯一の解決策は、あなたのコードのどこかにこの行を置くことである：それは基本的に何もしません

$a = $b; # hack to disable warnings about "main::a" used only once 

が、それは警告を無効にし。将来のメンテナーがあなたの心を読む必要がないようにコメントを残すことを検討してください。

Answer 3

にしている場合は、あなたのプログラムのこの近くにトップを追加します。

use vars qw($a $b); 

か、あなたはperldoc varsの「時代遅れ」の部分が気に入らない場合は、単に追加：

を

our ($a, $b); 

Answer 4

これはおそらくList::Utilのバグです。これだけのコードのその部分に関連する警告カテゴリをオフにします

{ 
    no warnings 'once'; 
    return join("_", @monsters) if @monsters && List::Util::reduce { $a && $b // 0 > 0 } 1,@monsters; 
} 

：グローバル警告をオフにする

は、しかし、あなたはこのような何かを行うことができ、おそらく良いアイデアではありません。

Answer 5

うん、それはあなたじゃない。あなたは一度も警告を出すことはできません。または、もう1回使用しないように$ aと$ bを事前に宣言することができます。

our ($a, $b); 

です。私はそれが他のもののための警告を止めないのでそれを好む傾向があり、それはもう少し説明的です。

Answer 6

perl 5.19以降。すべて$aおよび$bのすべての用途については、this warning is disabledです。