スカラー@リスト

Question

私はPerlを初めて使うので、Perl BEGINはコンパイルに失敗しました。私は次のようにそのコードを見つける実行することはできません。

#! perl -T 

use strict; 
use warnings; 

BEGIN { 
    my @classes = qw(Animal Cow Sheep Horse Mouse); 
    use Test::More tests => scalar @classes; 
} 

を私は5にscalar @classesを変更すると、それはokです。 use Test::More tests => scalar @classes;をprint scalar @classes;に変更しても問題ありません。しかし、一緒にいるときは間違っています。どうして？

Answer 1

use文でテストの数を指定するのではなく​​機能を使用することですこれを行うための慣用的な方法：

use Test::More; 
my @classes = qw(Animal Cow Sheep Horse Mouse); 
plan(tests => scalar @classes); 

あなたはuseにテストの数を指定することを主張した場合、

my @classes; 
BEGIN { 
    @classes = qw(Animal Cow Sheep Horse Mouse); 
} 
use Test::More tests => scalar @classes; 

または

BEGIN { 
    my @classes = qw(Animal Cow Sheep Horse Mouse); 
    require Test::More; 
    Test::More->import(tests => scalar @classes); 
} 

のいずれかが必要

useはコンパイル時に評価されるという問題があります。 BEGINブロック内に配置します。ブロックはコンパイル時にも評価されますが、BEGINブロックには独自のコンパイルフェーズがあります。

useがBEGINブロックの残りの部分の前に実行されているので、あなたが書いたことは、それはあなたが0のテストを計画しようとして文句を言う理由です

BEGIN { 
    my @classes; 
    require Test::More; 
    Test::More->import(tests => scalar @classes); 
    @classes = qw(Animal Cow Sheep Horse Mouse) 
} 

に相当します。

Answer 2

use MODULEは、BEGIN { require Module; Module->import(LIST); }（正確にはperldoc -f useを参照）と同じです。

私は、Aブロックは、問題を引き起こし、そして実際に、

#! perl -T 

use strict; 
use warnings; 

BEGIN { 
    my @classes = qw(Animal Cow Sheep Horse Mouse); 
    require Test::More; Test::More->import(tests => scalar @classes); 
} 

でコードを交換し、正常に動作思われるBEGIN内BEGIN疑い。