8

Perl コードの一部をリファクタリングしているときに、次の奇妙な動作に気付きました。
次の小さなサンプル スクリプトを検討してください。

#!/usr/bin/perl -w

package test;
use strict;
my $obj = bless( {}, __PACKAGE__);
our @ISA = qw( missing );

exit(0)

予想される警告

Can't locate package missing for @test::ISA at test.pl line 8

1回ではなく3回登場。この警告の他の 2 つのトリガーは何ですか? 3 つすべてを参照してくださいexit(0)
gentoo Linux の perl バージョン 5.12.4。

ありがとう。

4

1 に答える 1