package AA; use strict; use warnings; sub new{ bless { var=>'インスタンス変数' },shift; } ↑通常。 package AA; use strict; use warnings; sub new{ my ($class) = @_; my $self = bless {},$class; no strict 'refs'; my $var = 'インスタンス変数'; …

package AA; use strict; use warnings; $AA::var = 'クラス変数' sub new{bless {},shift} (略) ↑パッケージに結びつけてることが一目瞭然。外部からは「$AA::var」でアクセス可能 packge AA; use strict; use warnings; use vars qw(var); $val = 'クラス…